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PREFACE 


This document is written for personnel who wish to 
become acquainted with the internal structure of 
the system. Complete understanding of the contents 
of this manual requires the reader to be familiar 
with the PDP-12 System Reference Manual (DEC-12-SRZC~D) 
and the CLINICAL LAB-12 System Programmers Manual 
(DEC-12-MRDC-D). 

Each section of this manual deals with one program 
and its associated overlays. A section includes 
the user’s guide, an internal description, a set of 
assembly instructions and a complete set of flow charts. 

Associated documents includes 

Operator’s Handbook, DEC-12-MCL0A-A-D 
User's Handbook, DEC-12-MCLUA-A-D 
System Programmer's Manual, DEC-12-MRDC-D 
Input Programs Manual, DEC-12-UIFB-D 
Output Programs Manual, DEC-12-U2FB-D 
On-Line Programs Manual, DEC-12-U3FB-D 
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CHAPTER 1 


INTRODUCTION 


The programs described in this manual fall into two classes, the 
first set deals with administrative data and the second with test 
data. Also included is a description of DATA-PF, which is a system 
program called by other user programs to file patient data. 

The first set of programs consists of Administrative Update (AD), 
Requisition Entry (RE) and Delete (DE). The AD Program permits 
addition, modification, or deletion of patient administrative data 
(name, patient number etc.) in the files on disk. RE is used to 
requisition tests and save space on the disk for the test results. 
DE permits full or partial deletion of patient data. 

The second set of programs consists of Test Update (TE), Manual 
Calculations (CA), and Accession Number Entry (AC). TE is the 
program which allows the technician to modify test data or to enter 
results from an instrument not directly connected to the system. 

CA allows the technician to calculate a new result from one or more 
pieces of information already in the patients file. AC is used 
with on-line data to identify one or more results from an Auto- 
Analyzer sample with the correct patient. 


1-1 




CHAPTER 2 

ADMINISTRATION UPDATE 


) 


The Administration Update (AD) program consists of two separate 
routines to perform the functions of entering and modifying patient 
administrative data. The technician controls these routines through 
a step-by-step cookbook procedure. The goal in coding each routine 
has been to make things quick and convenient for the experienced 
technician, while guiding the beginner who is attempting to alter 
the information in the patient's file without knowing the proper 
format. 

2.1 ENTERING A NEW PATIENT 


The technician, after typing AD and receiving the message E OR M*, 
types "E> which calls this routine. The conversation between the 
system and the technician which follows can best be shown in an 
example, such as the one given below. All system inspired typeouts 
in the example are underlined. 


E OR M* 

n PATIENTS ON FILE 
PATIENT #: 

NAME (L F M) ; 

PAT, TYPE: 

NEW TYPE. OK? 

N.S. ; 

DR. : 

ROOM # s 
SEX: 

BIRTHDATE: 

CHANGES? 

PATIENT #: 


1234J 

JONES, JOHN h.J 

sy^ 

x) 

63EJ 

JOEV 

C-25V 

mJ 

iy07/1941^ 


For the experienced operator, the above procedure is sufficient 
to add any patient to the patient files. 


An editing feature has been provided for the case in which a tech¬ 
nician notices a mistake on a line(s) previously typed in. Rather 
than recalling the program by an M E J " and retyping eight lines to 
correct the one errant line, all the technician need do is answer 
"YES" to the CHANGES? typed by the system. The enter routine then 
enters the correction mode, where a " j) n by the technician indi¬ 
cates the line is correct as it stands, and any other character 
indicates the technician is retyping the last line. (See the 
example below where the technician wishes to correct both the 
physician's code and the patient's name). 
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CHANGES? 


PATIENT 

# : 

NAME 

(L 

F M) : 

PAT. 

TYPE: 

N.S. : 



DR. : 



ROOM 

# : 



SEX: 

BIRTHDATE: 
CHANGES? 


YES*) 

1234* * 

JONES, JOHN A. *BARROW CLYDE M.V 

SIV 

6BE*J 

JOE* BObJ 
C-25 J 

12/07/1941V 

N J 


If no changes are required (NO is typed after “CHANGES?” )„ the pro¬ 
gram asks for another patient name. 


The technician can exit this program at any time by typing "STOP^" 
for any line. The program types "TTY IS FREE” and exits, with no 
information for this patient reaching the disk. 


Before storing the information given it by the technician, the 
routine conducts certain tests on its own? if the information is 
not in the proper format, the routine prints an appropriate error 
message. The technician then retypes the offending line and, if 
all other tests check out, the information is stored in the patient 
files. The error messages listed below provide sufficient checks to 
catch any error. 


1. INVALID INPUT - 

TRY AGAIN (AN INVALID CODE HAS BEEN TYPED) 

2. PATIENT # IN USE (SOMEONE ELSE HAS THE PATIENT NUMBER 

TECHNICIAN IS TRYING TO INSERT) 

3. FORMAT IS MONTH/DAY/YEAR (WRONG DATE OF BIRTH FORMAT) 

4. ANSWER Y OR N (IMPROPER ANSWER TO "CHANGE?" WAS GIVEN) 

5. NO MORE ROOM (FILES ARE FULL) 


In any of the above cases (except patient # and sex) the technician 
could strike a "?" or ^for a given line and not receive an error 
message. The six character code for "?" (77 octal) followed by all 
spaces (character code 40) is then stored in the appropriate file. 
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All information is written out and read in from the disk by the 
routine before being permanently stored there to ensure the ac¬ 
curacy of the patient information on the disk. The routine 
searches the subfile directory ''number” of the first location 
containing 7777 octal indicating an open file location. This 
"number" is the relative address of the location containing the 
7777 octal. The routine uses this "number" to locate the starting 
address of the location where each separate line of patient informa¬ 
tion should be stored. It does this by multiplying the "number" 
by the number of locations necessary to define the given piece of 
information, and adds the result to the initial address of the 
appropriate file. The information is then stored in this resulting 
address. In addition, the number of empty slots is counted, and 
if fewer than 50 remain, an appropriate message is output. 


2.2 MODIFYING INFORMATION ON A PATIENT FILE 

After typing AD and receiving the message "E OR M*", the technician 
types ”M " to call the modify routine. The message "FOR ITEM TYPE 
P, N, T, W, R, D, S, or B PATIENT #:" is printed. 

The technician types the patient number of the file to be modified and 
then approves the patient’s name printed by the system to match the 
patient number. If the computer printed patient name does not match 
the patient number, INQUIRY (part of the summary program) can be 
used to find the problem. 


To modify an item, the technician types the appropriate code (P, N, T, 
W, R, D, S, B) in response to ITEM* where: 


P = Patient Number 
N = Name 
T = Type 

W = Nursing Station 


R = Room Number 
D ~ Doctor 
S = Sex 
B = Birthdate 


After the item code is typed, the correction procedure is the same as 
described in Section 2.1. An example in which the technician alters 
the patient’s number is shown below: 
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E OR M* 

M ) 

FOR ITEM TYPE P,N,T,W,R,S,0,R,B 
PATIENT #: 

1234^ 

IS IS BARROW CLYDE M?: 

ITEM* 

PATIENT #: 1234* 

YES^ 

1236; 


2.3 A SSEMBLY INSTRUCTIONS 

The AD and DE programs are listed as one large program so that the 
conditional assembly should indicate AD or DE, The assembler builds 
the appropriate chain. Blocks 1-15 of the binary are saved as AD. 


2.4 INTERNAL DESCRIPTION 


When started, AD performs an initialization procedure to determine 
the size of file 30 and file 26. The program reads the first 5 words 
of file 21 to establish constants for buffer sizes corresponding to 
the size of the patient number. This code is located in the disk 
buffer and is destroyed when the program starts. The program builds 
a mask of 77 or 00 bytes to mask out the reference field of a patient 
number when AD is concerned only with the patient number reference 
field. The mask code is located in the Teletype buffer and is de¬ 
stroyed when AD starts. AD then enters a routine to ask which option 

the user wants to run. Possible options include S, M, or E: 

"S" transfers control to a ”show-me routine; 

"M" transfers control to the modify path; 

"E" transfers control to the COUNT routine which 

counts the number of patients on file and then 
transfers to the entry path. 

Most of the code for the entry path is shared by the modify path. In 
addition, MODIFY sets flags, which affect the course of the program, 
so that when the patient file to be modified is specified, the old 
information is read from the administrative files. Then instead of 
running through a sequence of questions to ask, the modify path has 
a list of letters/addresses corresponding to items to be modified 
together with the address of the routine for this question. 

The ENTRY routine merely consists of a sequence of JMS instruction 
to dispatch control to each of the question asking subroutines, or 
ASK handlers. 
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Once the user has specified no more changes in the entry path or typed 
a carriage return in the modify path after "ITEM*", control is trans¬ 
ferred to the FILER routine. If in the entry mode, FILER looks for 
the first open slot in file 26 and writes a 7776 there. If the files 
are full, "NO MORE ROOM” is typed and the program exits. The sort 
file routines (see Section 2.4.1) are then called and when a carriage 
return is typed, a sequence of JMS instructions transfers control to 
subroutines for filing each piece of administrative data. The 
modify path skips the procedure of reading file 26 for the first open 
slot. The FILER routine then checks a flag to see whether it should 
return to the entry or modify subroutines. 

The program maintains buffers in core for each piece of administrative 
data. For some data, like patient name or room number, there is only 
one buffer. The format is 6-bit ASCII preceded by a constant equal 
to the negative of the number of words in the character string. For 
some data, like birth date and sex, there are two buffers: 

1. One represents the actual binary value to be filed; 

2. The other represents a text string corresponding to the 
binary value to be typed out to the user. 


"GET” handlers, the subroutines for getting old information out of 
the files for the modify path, also transform the binary value on file 
to the text to be typed to the user. "ASK” handlers will ask the 
appropriate question, parse the input for validity, and encode the 
input text as a new binary value, if necessary. In that case, the 
new text typed in will be saved as the new text string to be typed 
out in case the user's responses cause the ASK handler to be called 
again before the data is filed. "FILE" handlers merely file the data 
buffer in the right place and right file on disk. The handlers 
(GET 23, ASKQ5) for room number information exemplify this process 
well because there is no syntax checking or parsing involved. This 
represents the minimum amount of overhead necessary to handle a data 
item. Note that there is no FILE23 subroutine, since the code involved 
would be exactly the same as in the GET 23 subroutine. The only 
difference is that one reads and the other writes. This parameter is 
never under the control of an individual handler, however. A global 
switch (WRITE) on page 0 controls reading or writing and thus, the 
individual handler will perform the action dictated by the routine 
containing the GET sequence of FILE sequence. These handlers are 



designed so that they can be called without regard to order. These 
handlers are completely disjoint except for ward/Dr. code and sex/DOB 
because these items are combined into records in the same file. 

All of the ask handlers begin by using ASKSB as a front end* ASKSB 
will put the patients' old data in the buffer before typing the 
information. If the program is using the modify option and if a 
carriage return is typed, the routine will branch back to call +3. 

The format in a handler then is: 


ASKX, 

0 

JMS I ASKSUB 

/Jump to front end 


QX 

/Question text to type out 


BUFFX 

/Old info, text to type if in modify path 


JMP I ASKX 

« 

• 

• 

« 

• 

• 

/Do nothing if modify path and C.R. input 
/Check for input syntax (optional) 
/Convert text to binary value (optional) 
/Search for an occurrence of this 
/Item already on file (optional) 


TAD ABUFFX 

JMS I PACK 

/Save new text 


JMP I ASKX 

/Done 

BADQX, 

JMS I TYPOUT 
BOOMS 

JMP ASKX + 1 

/Try again 


For further information about a specific ASK, GET or FILE handler see 
the flow charts or the program itself. 

2.4.1 Sort File Routines 


There are four main routines that maintain the sequenced directories. 
The routine for deleting a patient file from the directories is common 
to AD and DE. When a patient file is entered, the program checks that 
the patients file 26 position is not in the sort file. When patient 
data is modified, the patient data is removed and then reinserted into 
the sort files. 

2.4.1.1 MSSORT - This subroutine runs through a list of addresses 
which point to parameter lists describing each type of sort to be 
done. For each such entry, the SORT routine is called to find the 
relative position at which the new file 26 key is to put in each 
subfile of the total sortfile. A list of the keys is built. After 
all keys are determined, the subroutine INSRT is called for each item 
in the list to insert the key into its corresponding subfile of the 
sort file. 
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I 2.4.1.2 SORT - This subroutine determines where to put the patient 

data in the first (next) subfile. An interval halving method is used 
to locate the highest placed key which has corresponding AD data less 
than or equal to the AD data of the patient to be admitted. The 
high and low boundaries of the subfile which are still under con¬ 
sideration are maintained. When their difference (SPAN) becomes less 
than 256, that segment of the subfile is read, and further fetches 
of keys are done from core rather from disk. When the next key is 
fetched, the parameter list passed by MSSORT is interpreted to 
find which AD data files to read to compare with which core buffer of 
new data and which bits or bytes of the records to mask when doing 
the comparison. If data from several AD files is to be considered, 
the first (next) entry is checked. Subsequent AD data files will not 
be checked unless there is a match on the previous data file. The 
output of the routine is the position where the patient data is 
inserted later. 

2.4.1.3 INSRT - This subroutine actually inserts a file 26 position 
word into a subfile directory. The proper subfile is read beginning 
with the position to insert the patient into the second through last 
words of the core buffer. The key to insert is put in the first word 

) and the first to second from last word is written back out. The last 

word of the buffer is put in the first word and the process is repeated 
until the logical end of the subfile. 

2.4.1.4 DESRT - This subroutine deletes occurrences of a specified 

key or keys which are not less than HOSIZE from all subfiles of the sort 

file. The program treats each subfile as a logical entity, and 

reads successive buffers of keys from disk. These buffers are then 
“collapsed 1 ’ by removing the above mentioned keys. The buffer is then 
written back out only if there has been some change so far, either 

in the current buffer or in previous buffers. This process is con¬ 

tinued until either the end of the subfile is reached or until a 7777 
key is encountered. A total count of the number of words deleted has 
been kept and the buffer is end-filled with 7777 for this many words. 
Then this last buffer is written back out. 

NOTE 

The FILER program (FI), which rebuilds directories, uses 
the AD sorting routines intact. When changing the num¬ 
ber of directories, one must change the equates in the 
beginning of AD+DE and CH, and add appropriate code to 
FI for the new directory. 
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2.5 ADMINISTRATIVE UPDATE FLOWCHARTS 
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M3S0RT 


initialize pointers and 
counters 


Reinitialize 
pointers and 
counters 



dot next key from stack 



JMS INSERT pass this key to 
INSRT. It is relative address in 
this sort file in which to insert 
NEW2GP (pat. F26 position) 
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DESRT 


Clear counters and flags for all SUBFILES-! 


I 


[initialize counters and flags for 1st (next) SUB KILE- 
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CHAPTER 3 


REQUISITION ENTRY 


The functions of the REQUISITION ENTRY (RE) program are summarized 
below: 


1. Accept keyboard input including an identifying 
patient number, test types, and their identify¬ 
ing accession number, and the time of day the 
sample was (or perhaps will be) drawn. 

2. Create entries in the patient files for test 
results to be supplied later. 

3. Create new blocks of test data as needed. 

4. Maintain a "running count" of active tests 1 in 
the patient files. 

5. Assign new "day headers" and "pointers to today" 
in the patient files as needed. 

6. Indicate active accession numbers 2 in the Requi¬ 
sition Index as new numbers are entered. 

7. Sound an alarm to the hospital personnel in the 
form of a typewritten message on the calling 
terminal when the maximum number of blocks in 
the Patient Files is being approached. 


3.1 GENERAL DESCRIPTION 


Input is received from either a terminal or a card reader. 


Output will be to the patient files on the disk and in the case of 
card reader input a verification sheet on either terminal or line 
printer. 

I/O USED—Teletype and disk. The disk files used are the following: 



File No. 20 

PATIENT 

NAMES 

Read 

only 


21 

PATIENT 

NUMBERS 

Read 

only 


26 

SUBFILE 

DIRECTORY 

Read 

and Write 


Active Test - a test which has been requested but whose results 
have not been entered into the patient files. 

2 Active accession number - an accession number which has been 

requested but whose corresponding test 
result(s) has not been entered into the 
patient files. 
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27 

REQUISITION INDEX 

Read 

and Write 

30 

PATIENT TEST DATA 

Read 

and Write 

34 

DAD MAP 

Read 

and Write 

35 

ALPHA TEST TYPES 

Read 

only 

36 

TEST TYPE PARAMETERS 

Read 

only 

42 

BATTERY TABLE 

Read 

only 

43 

PACKAGE TABLE 

Read 

only 

46 

CARD POINTERS 

Read 

only 

50 

CARD FORMATS 

Read 

only 


The REQUISITION ENTRY program consists of two essentially disjointed 
parts, one for input from a terminal and the other for input from 
a card reader. The operator calls in RE and the terminal will 
print: 


OUTPUT DEVICE, 1 TERMINAL, 2 LINE PRINTER 

Typing 1 will cause overlay RF to be read in and the input will 
be from the calling terminal. RF will call overlays R1, R2, R3, 

R4, R5 and R6 in the course of operation. 

Typing 2 will cause RE to continue and input will be from a card 
reader with interaction from the calling terminal. RE will call 
overlays R7, R8, RO, RG, RH and RI in the course of operation. 

The operation of the two parts of the program is completely dif¬ 
ferent although they have the same results and functions. See 
section 3.2 for terminal input and section 3.8 for card reader input. 

3.2 FUNCTIONAL DESCRIPTION OF TERMINAL INPUT 


After selection of terminal input, the computer will respond with 
the following message on the calling terminal: 

ENTER REQUISITIONS AS: 

TIME, PATIENT #, TEST TYPE(S), ACC # 

Requisitions may now be typed. Examples of the Teletype input 
are given below. Computer responses are underscored. 

*8:45AM, 12345, GLUC, BUN, 3245^ 

JONES SAM R * YES^ 

j^2:00P,2369P,BUNj 
#3457 SMITH SAM* J 
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*234567, ELEC, MA12, 57(0 
BROWN GEORGE* NO*) 



Commas are the delimiters which separate each field. Redundant 
blanks are ignored 1 . A line of input is terminated by RETURN. 

An typed by the computer signals that it is ready for a line 

of input. 


Two options exist for the "time of day" entry: 


1. The time may be typed in the format (h)h:mmT 
where hh is a decimal number in the range 1-12, 
mm is a decimal number in the range 00-59, and 
T-A(M) or P(M) 2 . 

2. The time may be ommited. Omission of the "time 
of day" field is assumed if all characters in the 
first field are decimal digits. 


The number of test types which may be entered on one line is re¬ 
stricted only by the physical length of the line. If the accession 
number is omitted 3 , the next available accession number is auto¬ 
matically assigned by the computer and printed. 

Following the accession number, the computer responds by typing 
the patient name. At this point, two options exist: 

1. The line may be accepted by typing Y(ES) 

2. The line may be rejected by typing N(0) 

The computer responds by typing ”** INPUT REJECTED" 
and ignores the line of input. 


1 Redundant blank = a blank before or after a field, but not within 

a field. Thus: 

^AAA1234AA,AAAAGLUCAAA is legal 
M.2A34,GLUC is illegal 

Characters enclosed in parentheses are optional and may be omitted. 

3 If a test battery includes, say, 12 tests, the count is increased 
by 12 10 . 
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Input is terminated when the first four non-redundant characters 
of a line are "STOP". The computer then prints the message "RE DONE? 
TTY IS FREE". 

3.3 TEST PACKAGE 

A "test type" is synonymous with the term "battery". The set of 
tests which make up a battery are all intended to be identified 
with the same accession number in the patient test data. A battery 
made up of N test types is said to be of length N. Each test type 
is itself a battery of length 1. E.g., the battery (test type) 

SMA-12 has a length of 15 and consists of 15 batteries (test types) 
all of length 1. 

Two separate batteries typed on the same line have the same acces¬ 
sion number in the test data. However, the same accession number 
typed on two different lines is not accepted so that a duplicate 
battery-accession number combination does not enter into the files. 

A test package is a set of test batteries, with no duplicate acces¬ 
sion numbers, which is placed in the patient test data for billing 
purposes. 


* 
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9 


) 


O 


A package is identified in the Test Data by a unique header fol¬ 
lowed by the set of batteries which combine to form the package. 

Test batteries within packages are exceptions to the file structure 
since space may be allocated for a battery, although the battery 
has not yet been requested. A battery is flagged as unrequested 
by setting the two high order bits of the accession number to 1. 

A package may be requested by typing the package name and the 
identifying patient number. The computer will then "lead the 
typist by the hand" in identifying each battery within the package 
and accepting the corresponding inputs. 


The format for a package requisition is shown in the following 
example, where "ADM" is the name of an admittance package. 


1. 


n2 34 5, ADtO 
<PKG> JONES SAM R.*Yj) 


ii. 

PKG REQ. ON 12/31 J 

iii. 

TEST, TIME, ACC #; TYPE 

iv. 

CBC *1:1SAM, 1234 J 


OK? YES } 

V. 

GLUC * I ) 

vi. 

BUN * J 


#1235 OK? J 

vii. 

VDRL <2:35PM #6789> ^ 

viii. 

END OF PACKAGE. ) 


Explanation: 


line i The format for packages is similar to that for bat¬ 
teries, with the "time" and "accession number" fields 
omitted. The computer, upon detecting a code as a 
package name, signals it as such by typing " <PKG> " 
followed by the patient name. The line may accepted 
or rejected as usual. An initial search through the 
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appropriate patient file for the requested package 
header is made. If the header exists, and at: least 
one battery within the package has not been requested, 
the computer proceeds to line ii. If the header does 
not exist, space is allocated in the patient file for 
each battery in the package at this time; then the 
computer proceeds to line ii. 

line ii A new package of the same name cannot be requested 

until all batteries within the old package have been 
requested for that patient, because a package cannot 
be uniquely recalled from a patient's file by the 
typist. 

So long as there remains at least one unrequested 
battery within a package, the program recalls that 
package when requested and allows the typist to 
complete the remaining requisitions. 

If a package is recalled from a file (that is, at 
least one battery remains to be requested for that 
package), the computer prints PKG REQ. ON XX/XX, 
where XX/XX is the date on which the package was 
first requested. 

If it is necessary to lay out a new package, the pro¬ 
gram obtains operator approval before proceeding. 
Instead of the message printed in line ii, the 
following message is typed: NEW PKG. OK? (Y OR N)* 

If Y is typed, the program then lays out the new 
package in the file and proceeds to line iii. If 
N is typed, the program prints * * INPUT RE J EOT i; L) , 
cycles back to the beginning, then prints an 

Line iii The first half of line iii shows the format for 

entering data. The second half of the line presents 
the I (Ignore) option. If a requisition is not yet 
available, type I and a Carriage RETURN; the computer 
proceeds to the next line. 
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line iv. The computer types the first battery name and waits 

for input. The time and accession number for this 
test may now be typed in. Both fields are optional 
and both may be omitted simply by typing KEM’URN. 

This signals the computer to assign an accession 
number, as in line v. Each line of input; is termi¬ 
nated by RETURN and accepted or rejected as usual 
after "OK?" is typed by the computer. Rejection 
of a line causes the computer to retype the line, 
preceded by the message M INPUT REJECTED .” If the 
line is accepted, the computer places the entered 
information in the test data; it then proceeds to 
the next line. 

line v. The GLUC test is not available. I is typed and the 

computer proceeds to the next line. 

line vi. Here, the accession number lias been assigned by the 

computer and printed. After acceptance of the number, 
the computer proceeds to the next line. 

line vii. A test which has previously been requested within the 

package causes the computer to type the time and ac¬ 
cession number enclosed by the characters " <" and tt >" 
thus distinguishing it from a line of input. It then 
proceeds to the next line. 

line viii. This line is typed after the last battery in the 
package. The computer is then ready to receive 
another line of input. 

3.4 ERROR MESSAGES 

Appropriate error messages are also printed. They are summarized 

below. 

**ILLEGAL TIME FORMAT Self-explanatory. 

**NON—EXISTENT PATIENT # Patient number not found in 

PATIENT NUMBER file, or non¬ 
numeric characters. May also 
indicate format for the time of 
day is incorrect. 
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* ILLEGAL TEST TYPE FORMAT 


Either more than four charac¬ 
ters were typed in the test 
type field or the test type 
field was omitted. 

*NON-EXISTENT TEST TYPE XXXX The test type format was legal, 

but XXXX could not be found in 
the ALPHA TEST TYPE file. 

*DUPLICATION OF TEST TYPE XXXX The program checks for dupli¬ 

cation of test types which 
were entered on one line with 
the same accession number. 

Each test within a battery, as 
well as the battery itself, is 
checked for duplicate entries. 
Thus, if both the batteries 
MAI2 and BGLU contain GLUC as 
one of the tests within the 
battery, all of the following 
entries are illegal: 


...MAI2, BGLU,... 

...MAI2, GLUC,... 

. ..BGLU, GLUC,. . . 

...GLUC, GLUC,... 

...MA12, MA12,... 

*ILLEGAL PACKAGE FORMAT May indicate: 

1. More than one package code 
on a line. 

2. Intermixing of package codes 
and batteries (or single test 
types). 

"Time of day" field or "acces¬ 
sion number" field or both 
were entered. Both fields are 
illegal in the package format, 
(See section "Test Packages") 
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**ACC. # NOT UNIQUE A pointer for the entered acces¬ 

sion number already exists in 
the REQUISITION INDEX. 

**DISK ERROR. TTY IS FREE. A non-recoverable disk error was 

detected. The program then exits. 

**SORRY 

THERE ARE NO AVAILABLE ACC. NUMBERS AT THIS TIME. COMPUTER MUST 
EXIT 

In attempting to assign an acces¬ 
sion number, no available numbers 
were found. The program then 
exits. 

**WARNING. DISK FILE IS NEARLY FULL 

This message is printed when 
there are less than 20^ blocks 
available in file 30. 

**DISK IS FULL. RE IS TERMINATED There are no more available 

blocks in file 30. This message 
is printed only when the program 
tries to assign another block to 
a subfile. Thus, it is possible 
to enter more requisitions for 
other patients so long as there 
is available space in the sub¬ 
files for those patients. 

**CANNOT ACCEPT THE LARGE VOLUME OF INPUT. SUGGEST 
ASSIGNING DIFFERENT ACC. NUMBERS TO SAMPLE 

This in an improbable but pos¬ 
sible circumstance. Three blocks 
of data must be created as a 
result of one line of requisitions 
for the circumstance to occur. 

**TEST HAS BEEN DELETED This message is printed if a pack¬ 

age has been deleted during the 
time between a package request 
entry and the printing of the first 
battery of the package. 
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Except as noted above, "**INPUT REJECTED" will be printed after 

every message. 

3.5 INPUT PROCESSING 

Each line of input is processed as it is received. The steps in 

the processing are summarized as follows: 

1. The time of day is coded to the format in which it will 
appear in the test data. If no time of day, the time is 
coded as binary l's. An error message is typed if the 
time is out of range. 

2. The patient number is converted to binary and an error 
message is typed if necessary. A search through the 
PATIENT NUMBER file is made for the number in question. 

If the number typed is not found, an error message is 
typed. If the number is found, the corresponding name 
is retrieved from the PATIENT NAME file by noting the 
relative position of the number in the PATIENT NUMBER 
file. 

3. A table lookup is made for the binary equivalent of each 
test type. If the search is unsuccessful, an error mes¬ 
sage results. If a package code is typed, the computer 
proceeds in the manner described above. 

4. If the accession number was entered, the corresponding 
pointer is read from the REQUISITION INDEX. If the 
pointer equals 7777, it is replaced temporarily by 7776. 

If the pointer is not 7777, an error message is typed. 

If the accession number was not entered, a .search lor 
the next available number in the REQUISITION INDEX is 
made. Then 7776 is placed into the REQUISITION INDEX. 

If the pointer to the SUBFILE DIRECTORY equals 7776, 
a block must be assigned to the patient. This requires 
a search through the DAD file for an available block. 

A pointer to the assigned block is then placed into the 
REQUISITION INDEX and SUBFILE DIRECTORY. 
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5. If no errors are detected, the patient name is printed. 

If NO is typed following the name, the line is rejected, 
and the pointer in the REQUISITION INDEX is again set 
to 7777. If the line is accepted the information may now 
be placed in the PATIENT TEST DATA. The "current day" 
header is found by referencing the pointer in the first 
block. "Today 1 s" header is placed in the subfile if 
necessary, and the pointer to the current day is updated. 

The "active test" count is increased accordingly. 1 Each 
battery of length N which was typed results in 3 + (Nx3) 
words to be created in the test data. The length of each 
battery is found by examining the TEST TYPE TABLE. The 
test type (battery number), accession number, and time 
are placed in words N, N+l, and N+2, Each subsequent 
three-word entry, consisting of test status, technician 
code, and results, is set to zero, except that the "last 
test in battery" bit is set to one in the last three-word 
entry. Word 2 of the first block is set to the relative 
position of its pointer in the SUBFILE DIRECTORY. The 
pointer in the REQUISITION INDEX, temporarily set to 7776, 
is now replaced by the pointer to the first block of the 
patient 1 s subfile. 

The program assigns new blocks to the patient’s subfiles as needed. 
Data is placed into each block up to the 2 56**^ word, and a pointer 
to the next block is placed there if a new block must be created. 
The last word in the file is followed by a logical end of file 
marker (7777), and the last word of that block is set to 7777. 

Note that the logical end of file may not exist if the last word 
happens to fall in the 255^^ word of the block. The DAD file is 
then updated and written back onto the disk. If the number of 
available blocks is less than or equal to 20, a message is printed 
on the terminal. If no available blocks remain on the disk, an 
appropriate message follows. 

CALLING PROGRAMS - The program is called by operator request only. 

PROGRAMS CALLED - Except for program overlays, no other program is 
called. 

1 If a test battery includes 12 tests, the count is increased by 12^. 
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ERROR S - Input cannot be edited with the Requisition Entry program. 

If the computer detects a syntax error, an error message is typed, 
and the current line of input is ignored. Errors detected by the 
user can be corrected by calling the "DELETE DATA" program^ 
and deleting the offending tests, then recalling the Requisition 
Entry program. 

3.6 ASSEMBLY INSTRUCTIONS * 

The source exists in seven DIAL sections: REQENT, REQENT-I, 

REQENT-2, REQENT-3, REQENT-4, REQENT-5, REQTXT. REQENT-1, -2, -3, 

-4, and -5 are first added to REQENT using the AP DIAL command. 

These combined sources chain to REQTXT. The binaries arc* saved in 
the following manner. 

+ = add 
+ = chain 

Source 

REQENT+REQENT1-* REQTXT 
REQENT+REQENT2+REQTXT 
REQENT+REQENT3+REQTXT 
REQENT+REQENT4+REQTXT 
REQENT+REQENT 5+REQTXT 
REQENT+REQENT5+REQTXT 
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3.7 FLOW CHARTS FOR REQUISITION ENTRY (TERMINAL INPUT) 
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Uf 4 b) 

Return here from 


1 


program R1 


joad program 
R2 into 
, quarters l r 2 f 3l 


I 


© 


Go to program 
R2 


Return here from 
, program R2 


fLoad program 
R3 into . 

quarters l r 2 r 3l 


Go to program 
R3 



/ 

I 
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To here if disk error 
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ENTER 
S/R 
v #5S 


Second 


_ ± __ 

"CARRIAGE 
RETURN "-f AC 
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REQUISITION 

R1 
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INITIALIZE PTR. 

TO TEST TYPED BUFR 
(XR7) 

WTT OF TEST TYPESl 

(#7K) _ 

^SWITCH (#41) 


GET A CHAR. 

IN FIELD BUFF 
(XRl) 


/ GET NEXT\ 

/ FIELD )-> 

\TEST TYPE/ 

1 Carriage 
Return 

v/wERES. 

/ANY TESTS. 
TYPES PREVIOUS^ 
INTERPRETED ON^> 
W THIS LINE?/^ 
SWITCH UtV 


a test type 


/ENI> 
^ OF 
.FIELD 


^TS CM 
"A NUMBER 


^MORESv 
rHAN 4S 
CHARS? 
SXR104 


GET NEXT 
CHAR 


PRINT TTY: 
"ILLEGAL TEST 
TYPE FORMAT" 


END OF 
FIELD 


CONVERT 8-BIT 
TEST NAME TO 
6-BIT 


/ ALPHAS. 
TEST TYPES. 
TABLE ALREADY' 
IN CORE 
NlSWITCH #3>7 


READ IN 
TABLE ON 
k DISK 


0—^XR14 

(TEST BINARY CODE 
-# OF TEST TYPE 
^ XRl 3 
PTR TO TEST 
TYPE BUFP-> XR7 , 
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Yes, back to 
Quarter 0 
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3-28 


































/enteIk 
/S/R #3L\ 
l ACC. # ) 


INITIALISE PTR. 
TO FIELD BUFR. 

(XRl) 


/ CONVERT 
'ACC # TO 
V BINARY 


✓EXITX 
n/ #3L, \ 

omo skip/ 


STORE LO 
ACC # ( #2F+3) 
STORE HI 
ACC #(#2F+2) 


'TEST IF 
ACC # 
< 10,000 


1 /$. 10,000 ' 


/EXIT > 
#3L, 

Vno skii 


/OPEN WRITE / 
/FILE 27, READ / 
I PTR. IN RE 0* l 
\INDEX, FILE 27\ 


/ PTR. 
-7777 


#5L_ 

/Close write 

J FILE 27 


^not unique 


/EXIT\ 
/ #3L, \ 

AMO SKIP/ 


-►PTR. 

IN REG. INDEX, 
FILE 27. | 

CLOSE WRITE 

TT.TP 


/INCREMENT 

'current 

lACC.# 


EXIT \ 
#3L, ) 
1 SKIP/ 
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ET THE NUMBEI 
|EN FILE 27 TO 
0776 


'WRITE IT 
/OUT ON 
DISK 




r CLOSE 
tfRITE FILP 
27 


#9J 


CONVERT ACC 
TO DECIMAL 







REQUISITION ENTRY 
R3 


No 


Enter R3 
(#3R) from RQ0 


0 SWITCHES 
#2W, 2W+1, 2W+2, 
2W+3, 2W+4, 2W+5 

_} 

/_ 

PTR. TO TABLE 
CONTAINING # OF 
TESTS/BATTERY+XR1 

r , - \ 

/ - 

-# of b; 

XR2 

VTTERIES 

j # OF 

HG) 

0 TOTAI 
TESTS (j 


-M 


jk. 


# OF TESTS FOR A 
(SINGLE BATTERY (XRl) 
h#6G-^ #6G 



'OPEN WRITE/ 
(FILES 30, / 

[TEST DATA, I 
AND 34, \ 

DAD MAP \ 


'READ IN 
DAD MAP 


L'jCEJnrU^E" 

INHERE TEST 

DATA WILL BE HELD 




SET THE PTR. 
IN SUB. DIR. 
(#7D) 


Subfile 
already exists 


Must create 
a subfile 


# 2X 



FIND &N 
AVAILABLE 
BLOCK IN 
FILE 30 FROMy 
MAP IN DAD/ 
FILE. 


BLOCK 

# -/PTR 

IN SUB 

. DIR. 

(#7D, 

2V+1) 


PTR'. To BECTTT 
OF DISK BUFR 
XRl 7 

. 1 -^ 

7777-/ WORD 
377 0 OF BLOCK 

- 2 ' - 1 

#5G I 

“pTr’.to^LMK 
CONTAINING 
(TODAY'S DAY 
.HEADER (#7D) 

.WORD 0 OF BLOCK, 

#5 G 


3 + WORD 1 
INDICATING THAT> 
DAY HEAD]-;? 

LIES IN WORD 
3. 


/REL. POS, 
/SUB. DIR. 
V #4 # + 3) 

\ WORD 2 


IN 




#5G 

SET BIT 0 
OF TODAY’S 
DATE, WRITE 


DATA INTO 
WORD 3 (#1G) 


#5G 


(ACTIVE 

test coum 
^#6 G) —/ 
.WORD 4 



SET SWITCH TO 
WRITE OUT PTR. 
IN SUBFILE 
DIRECTORY 
( 4000 -/ # 2W+4 ) 
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End of 




REPLACE END 
'OF FILE MARKEF 
^WITH TODAY'S 
>DAY HEADER 


jSET BLOCK # 
jWTTH HEADER INTO 
[WORD 0, QUARTER 4| 
(#71 WORD 0) 


PTR TO THE WORD 
WHERE DAY HEADER 
IS IN THAT BLOCK 
(#71+1) -> 

WORD 'l, QUARTER 4| 

\l/ 

SET SWITCH TO 
WRITE QUARTER 
4 ONTO DISK 
(4000+ 2W) 


#5G 


WRITE ACTIVE 
TEST COUNT (#6G> 
INTO WORD FOLLOW 
ING DAY HEADEI 
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/ WAS\ 
PACKAGE 
STYPED?/ 


/WRITE PACKAGE 
IEADER INTO 
NEXT WORD IN 
SPATIENT'S FILE 


WRITE IT 


0 -►AC 


BLOCK # CONTAINING 
PACKAGE HEADER y 

(#7I)-fclW-fl. 

WORD # IN THAT 
BLOCK 1W+2 

— .> | _ 

__ 

-# OF BATTERIES 
->XR2 

POINTER TO 
BATTERY NAMES XR3 
PTR TO TABLE CONTAININC 
# OF TESTS /BATTERY ->XR4 


^^LASTX 
""TEST OF 
3ATTERY? 



SET BIT 0 

OF AC 

L _ 



7RITE C(AC/ 


SET BIT 2 OF 
AC INDICATING} 
THAT THIS 
BATTERY IS PARI 
OF A PACKAGE 


-T of tests for 

CURRENT BATTERY 
(XR4 )-*>XR5 

PACKAGE^ 

^N^TPED^/ 


i ->• RESULT I 


J?->AC 


LOGICAL OR, 

AC WITH BATTERS 
NAME (XR3) 


WRITE 

BATTERY 

NAME 


f RESULT 


VlASIX 
''TEST IN 
^ATTERY 
\ ? / 


''LAST X. 
BATTER^ 

? ^ 


/ IS X 

/ POINTER 
SITTING AT' 
3AST WORD III 
XlE BLOCJfr' 


PTR,TO FIRST 
BLOCK OF 
SUBFILE -+ 

FILE 30 DISK 
PARAMETER AND 
TO THE POINTER 
IN FILE 27 


PTR.TO BEGIN 
OF SWITCHES 
#2W-»X RI 
PTR. TO DISK 
ADDRESSES-*XR2 
-4-»XR3 TO TEST 
THE 4 QUARTERS IN 
; MEMORY BUFFER 


WRITE LOW. 
ORDER ACCl 

UF+3) / 


/WRITE \ 

7777 \ 

(END OF FILE) 
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SET SWITCH 2W, 
2W+1, 2W+2, or 
2W+3 ACCORDING 
TO;RESPECTIVELY, 
WHETHER THE WORD 
WAS WRITTEN TN 
QUARTER 4,5,6 or 
7 


#6H 


STORE THE 
lORRESPONDINlj 
DISK BLOCK # 
USD WORD IN 
\THAT RT.OrK 




DETERMINE 
WHICH QUARTER 
IN CORE (4,5, 

6, or 7) IT IS 
CURRENTLY POINT¬ 
ING TO. 

.- ' 

USE THE QUARTER 
# AS AN INDEX 
TO THE APPROPIATE 
DISK PARAMETER 
CONTAINING THE 
BLOCK # RESIDING 
IN THAT QUARTER. 

. a _ 

DISK BLOCK # 
RESIDING IN CUR¬ 
RENT MEMORY QUAR¬ 
TER^# 71. 

WORD # IN THE 
QUARTER TO WHICH 
XR17 IS CURRENTLY 
POINTING -> 

#71+1. 
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#6X 


1 


POINTER 
1 XR5 


TO DAD 


-MAX # OF 
DISK BLOCKS 
AVAILABLE IN 
jFILE 30 FROM 
WORD 0 OF DAEj 









a j■ ^ 

m 

HH 

Jsg| 


























f#4R) Enter program 
V—*' R4 from RQ0 

^-rRjNT^TTY : 

HEADER INFORMATION 
FOR PACKAGE MODE 
INTERPRETED 

/ ^— 4 

/open read/ 

[FILE 3 0j 
(TEST DATA l 


BLOCK # WHERE 
PACKAGE HEADER 
LIES (#1W+1) 

DISK PARAMETER 
(2V+1) _ 

- -*- 

/READ IN BLOCK 

(CONTAINING PACKAGE/ 
HEADER INTO I 

, QUARTER 4, UMB6 ' 
\ CLOSE READ 


POINTER TO PKG 
HEADER-* XR10 
GET PKG HEADER 

/k “° 


T INDE~_ 

NA PKG /- 


-PRINT TTY: 

"TEST HAS BEE1> 
DELETED" 


0 70-1 

(SWITCH TO WRITE 
QUARTER 4 BACK • 
ONTO DISK) 

=0, DON'T WRITE 


’ READ \ 

BATTERY NAME 


PRINT TTY: 
'END OF PKG' 


READ IN 2/ 
WORDS OF I 
FILE 35 \ 


MULTIPLY BATTERY 
NAME (BIN CODE) 
BY 2 TO GET 
INDEX TO FILE 35, 
ALPHA TEST TYPES, 
AND PUT IN 
DISK PARAMETER. 


# 21+2 


le VIS \ 
/it a \ 
Battery an* 

^ART OF A 
\PACKAGE/ 
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-ONVERT 6-BIT 
CO 8-BIT ASCII, 
PLACE IN TTY 
DUTPUT BUFFER 


/READ LO 
ACC.# 


'READ HI 
ACC # 


^ Hl\ 
ACC # 
= 3 , 


POINTING TCT 
SEND OF ^ 

NsLoacr 


I 


*, ALT->TTY 
OUTPUT BUFR 


pET PTR TO 
OUTPUT BUFR 


C(XR10) 

->XR11 


-PRINT 

'EST NAME, *. 

;et tty input 


( ' READ IN NExa 
BLOCK OF j 
SUBFILE INTOl 
k QUARTER 5 


INITIALIZE 
S/R #1S 


GET HI 

ACC # (WORD 0. 
OF QUARTER 5) 


3W ___ 

r —Print tty 
r'TIME OUT OF 


:rr0r /GET FIRS* arr i a 9 e 
f-( FIELD >^turn 


vPRINT TTY) 
’'INPUT 
^REJECTED", 


Neither 


/ WASS 
AN "I" 
sTYPED 


#D.B+12 


READ HI 
ACC # 


Error 


CALL TIME > 
flNTERPRETE 


neither 


GET NEXT 
FIELD 


#lB+26 


PRINT TTY: 
"ACC# NOT 





7770^TIME 

(NULL) 

#6H ~T ~ 

#lB+34 

.CALL ACC #\ 
(iNTERPRETEI 


IGET TIM] 

Ucc# (x: 



*ESET PTR TO 
OUTPUT BUFR TO 
PRINT ACC # 


' CONVERT 
ACC# TO 
V DECIMAL 


rejected 


RESET CURRENT 
*CC # 


[IN REQ.INDEX 

#2W _ 

y^RINT TT^: 

/ " INPUT \ 
\ REJECTED"/ 


/READ BLOCK IN 
[FILE 30 BACK 
llNTO CORE. 

VWAS CLOBBERED 


^ACCEPTANCE 


WRITE LO 
ACC # (XRl$) 


READ \ 

'TEST STATl 



A /PRINT ACC#A 

SAVE IT 

Iptr 1 

/IF NECESSARY X 



READ 

RESULT 1 


SET UP 
OUTPUT BUFT 


'CONVERT 
TIME TO 
DECIMAL 


SET UP 
OUTPUT BUFR 


/ , #5Kl 

- 

T 

/eaD HI \ 

/READ \ 

/ RESULT 2 \ 

v „ [print out 

4s 

(ACC # \ 

' ItIME, ACC# 


'WRITE TIME) 

Shi acc # / 


/LASTS^ 
PEST IN 
BATTERY 
\? / 


(WRITE OUT] 
PTR IN 
l REQ.INDEX! 


SWITCH? 
#70-1 
v SET?> 


/OPEN AND / 

-WRITE OUT f- 
IQUARTER 4 l 

\INT0 FILE 30 \ 
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3.8 FUNCTIONAL DESCRIPTION OF CARD READER INPUT 


After selection of Card Reader input, the computer will respond 
with the following message on the calling terminal: 

OUTPUT ON 1 TERMINAL, 2 LINE PRINTER 

A response of 1 will set location OUTDEV to 0000. A response of 
2 will set location OUTDEV to 7777. The value of OUTDEV is trans¬ 
ferred between overlays for use by overlay R8. 

The program then searches the card type files and forms a list of 
RE card codes at TYPTAB in bank 6. The program then opens a 
scratch file in which to put the card information. The program 
then opens the card reader and prints the following message on 
the calling terminal: 


LOAD CARDS, HIT STOP, HIT READY, HIT RETURN* 



After a key is struck, the program causes three cards to be read 
into the buffer CRDBUF in bank 7. The program then initiates a 
read of three or more cards and processes the first three cards 
while the next are being read (0.9 seconds). 

The process continues until 150 cards have been read or the hopper 
is empty (a read with no errors occurred and 0 cards were read, and 
hopper empty flslg set) . 

The information from the cards is partially processed and stored 
in a buffer in bank 6. The buffer is in the following format: 


1. Card number in binary, 1 word. 

2. Card type in 2-character, 6-bit trimmed ASCII. (Second 
character is always 22(R), 1 word.) 

3. Patient number in 6-bit trimmed ASCII. (If an odd number 
of characters, the last half-word is 00.) The number of 
words will vary as to the length of the patient number in 
the system. 

4. Accession number in 2-word binary. If accession number is 
not entered, the value 7403 7777 is put in. If an error 
occurs (internal blanks or illegal characters), the value 
4207 7777 is put in. 

5. Time in 3-word format. First word is the 2-digit trimmed 
ASCII value for the hour. Second word is the 2-digit 
trimmed ASCII value for the minutes. Minutes are truncated 
to be even if an odd value is entered. Third word is 2000 
for a.m., or 4000 for p.m. Null time is entered as all 
zeros. 

6. Date in the monitor format, 1 word. Error in date is 
entered as 4000. No date entered will assume today’s 
date. 



1 ml. 




m2 

dl 

dl 

d2 

d2 

d2 

d2 


7. Tests requested 1 word per test. Bits 0-7 give the column 
number and bits 8-11 are the row number. Columns are 1-80, 
rows 1-12. 

8. End of card word, 1 word (7777). No disk reads are required 
to process the card information. All of the processing 
coding is located in bank 4. 
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After information from all three cards has been placed in the 
buffer in bank 6, the program executes the routine PR0BK6 in bank 6 
to process the information further and place it into the scratch 
file. The routine looks at the card type. If the card type is 
illegal, bit 0 of the card number is set. Otherwise, the card 
number is added to the scratch file, the card type omitted, the 
patient number added, a temporary subfile pointer of 7777 added, 
the accession number, time and date transferred. The column-row 
numbers for the tests are then compared to the list in file 50 for 
that particular card and the values which correspond are replaced 
by the pointer to the relative position in file 36. The end of 
file 7777 is then transferred. 

The information in the scratch file for each card is in the format 
described above and in the following order! 

1. Card number, 1 word, bit 0 set if invalid. 

2. Patient number, length will vary. 

3. Downpointer, 1 word (7777) 

4. Accession number, 2 words 

5. Time, 3 words 

6. Date, 1 word 

7. Test pointers, 1 word each 

8. End of card, 1 word (7777) 

When all of the information for all of the cards has been placed 
in the scratch file, the program jumps to bank 5 location 20 for 
error checking. 

The first part of the error checking uses routine PATNUM located 
in the last 2 blocks of bank 5 to check the patient number for 
validity. The scratch file is read and the patient numbers are 
listed with the relative position (downpointer) in a table in 
banks 6 and 7. The tape buffer is opened if the number of words 
in the patient number is sufficient to require this space. The 
patient numbers are read in 4 blocks at a time and all the numbers 
from the cards are compared each time. When a match occurs, the 
relative position is stored in the downpointer word. The program 



continues until all cards are checked. Then, the program makes 
another pass through the scratch file and replaces the word fol¬ 
lowing the patient number with the correct downpointer or if no 
match is found, 7776 is stored in the downpointer word. 

The second part of error checking uses routine TEST to process the 
test requests. Overlay RG is read into the last two blocks of 
bank 5 for the processing. The routine reads in a card information, 
sets up a bit map for the tests requested today on the particular 
patient in BITMP1. Another scratch file is opened and the infor¬ 
mation is transferred to the new file because the new file may be 
longer. Each test requested is read in and a check is made as to 
whether it was already requested today (a repeat) in BITMP1 or 
whether the test was previously requested on this card (a duplicate) 
in BITMP2. Parts of packages are only checked for repeats as they 
are assured against duplications. For single tests and batteries, 
the format in the list remains one word. Bit 0 is set if the test 
is a repetition, bit 1 is set if a duplication. For a package, the 
one word format is expanded. Bit 2 of the original word is set to 
show that a package appears. The following two words are a dummy 
7777 7777. Following these, each of the codes for the batteries 
within the package appear with bit 2 set and followed by 0000 0000 
as dummy words for future accession number. If consecutive cards 
are for the same patient, the program will include the previous 
cards in determining repetitions. 

The routine then closes the first scratch file and proceeds to read 
in R0 for the last part of error checking. 

The third part of the error checking is ACCNUM, which is located 
in overlay R0 as read into bank 4. The routine makes a pass through 
the scratch file and makes a list of the card numbers and the acces¬ 
sion numbers assigned to the cards. The accession numbers, ori¬ 
ginally in the form XXXXXXXXXAB CDEFGHIJKLMN are transformed into 
the form ABCDXXXXXXAB CDEFGHIJKLMN where the first four bits indicate 
the disk read in which the requested accession number can be found. 
When a number is found, bit 4 is set in the two word format, the 
appropriate word in file 27 is set to 7776 and the number is stored 
in a list starting at word 1000 of bank 4. After all of the requests 
have been checked, the null values (originally 7403 7777) are 
assigned an available accession number. The errors 4207 7777 will 



not be checks as bit 4 is already set. The routine then makes a 
pass through the scratch file and places the appropriate value in 
the accession number words and then files through the test requests 
for packages. In the two words allocated after each part of a 
package (except for the first package words which remain 7777 7777) 
an assigned accession number is placed. If no tests other than 
packages are found, the accession number is set to 7600 0000. The 
program then reads in overlay R7 into bank 5 and processing has 
been completed. 

After the initial processing has been completed, the operating 
sequence remains fairly stable. The options for handling are con¬ 
trolled through overlay R7 in bank 5 and all other programs return 
after completion. The last two blocks of bank 4 always contain the 
list of accession numbers saved. The option programs are located in 
bank 6 and, if necessary, in bank 7. Any programs needing storage 
space use the first two blocks of bank 4 and the available space 
in bank 7. If additional space is needed in bank 5, program R7 is 
restored. A return without disturbing R7 returns to location 21 of 
bank 5. A return after rereading R7 must be to location 20 of 
bank 5 with the following values in bank 4. The output device 
code (OUTDEV) in location 4, the number of words in the patient 
number (COUNT) in location 5, the disk read parameter for the 
scratch file (DISK17) in location 6 and the number of cards in the 
scratch file NUMCRD in location 7. These four values (OUTDEV, 

COUNT,DISK17 and NUMCRD) are common between overlays except that 
some may be complemented. 

After R7 is read in,the following message will be printed on the 
calling terminal: 

ENTER CODE* 

The operator should type the proper code for one of the options 
below: 

A — to file all cards without errors with the option of typing 
in exceptions. 

N — to file all cards without error as typed in. 

L — to print mnemonics for error codes appearing on cards. 

P — to print the card information on the appropriate output 
device. 



SHOW ME — to print an explanation of the options. 
STOP — to terminate the program. 


j 


# 




When option A is selected, the program calls routine GOODLT to 
leave a list of card numbers for cards without errors at LISTAB 
in bank 4. The first word of the list is the negative of the number 
.of card numbers in the list. GOODLT accomplishes its task by 
calling routine GETERR to form a list (ERRTAB in bank 7) of card 
numbers and their appropriate errors. The error word is as follows: 


Bit Set 

0 

1 

2 

3 

4 

5 

6 


Meaning 

Invalid card type 
Illegal patient number 
Illegal accession number 
Illegal time 
Illegal date 

Duplication of test type 
No tests requested 


GOODLT then only selects the card numbers whose error word is zero. 
The program then asks the operator to type in a list of excluded 
cards. This list should be legal card numbers, separated by 
commas. Cards with errors need not be entered as they will be 
rejected anyway. The numbers typed are read and placed in numerical 
order by routine GETLST. The exceptions are then, removed from the 
LISTAB list and R9 is read into bank 6 in order to file the cards 
listed. 


When option N is selected, the program calls routine GOODLT for a 
list of the cards without errors. Then routine GETLST is called 
to input a list of cards to be included in the list to be filed. 

The two lists are compared and any card that is input and is not 
on the list of cards without errors will be typed out as not able 
to be filed. The others will be placed in LISTAB and overlay R9 
read into bank 6. 

When option L is selected, routine GETERR is called and then the 
program calls overlay RH into bank 6. Program RH types the card 
number and the single letter code corresponding to any bit set in 
the error word. The codes are separated by commas if there are more 
than one per card and are as follows: 
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Code 
I 
N 
A 
T 
D 
R 
M 

The calling terminal will request whether the operator desires an 
explanation of the codes. Entering Y will cause this explanation 
to be printed, anything else will cause a return to R7. 

When option P is selected, the program loads overlay R8 into bank 6. 

R8 reads the scratch file and prints the information on the selected 
output device (OUTDEV) . After the cards are printed, the program 
returns to R7 in bank 5. 

When SH or SHOW ME is typed, an explanation of the options is typed 
on the calling terminal. 

When STOP is typed, the program uses the list in bank 4 of the 
accession numbers and restores the 7776 in file 27 to the original 
7777 so that others may use those accession numbers. The program 
then closes the scratch file and exits. 

Both the A and the N options call R9 the requisition filing routine. 

R9 is read into bank 6 and the first block of bank 7. The routine 
uses LISTAB to file cards in the list, if possible. The program 
first calls routine NUMGET which finds the card in the scratch file, 
forms in the correct format the accession number, time and date, 
and sets up a list of the number of three-word slots to be allocated 
for each test requested in table SLOTTB in bank 7. 

The program then calls routine PRELIN which searches the patient*s ^ 

file and determines the number of blocks of data for the patient 
NMBLK, the first block of data for the patient FSTBLK , the block 
and word for the end of file word NEDBLK and ENDWRD . A flag, 

HEADFL, is set if the current day header is in the file. When 
HEADFL is set, locations HEADBL and HEADWD contain the block and 
word for the current day header. The program then calls routine 


Error Bit Set 
0 
1 
2 

3 

4 

5 

6 


Error Type 
Card type 
Patient number 
Accession number 
Time 
Date 

Duplication of test type 
No requests 
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CHKLEN which verifies that the added tests will not exceed the 16 
block limit as the length of a patient's file. CHKLEN adds the 
number of words determined by (NUMBLK X 256) + ENDWRD + (sum of 
values in SLOTTB) X 3 + 16. If this value is greater than 4096, 
the program continues with the next card. If the value is less 
than 4096, the program calls routine PROCES to add the tests to the 
patient data in file 30. 

NUMBLK is checked and if there is no data in the file, a block is 
secured by setting a bit in file 34 by routine FILE34. The correct 
header and test count is set up, and then routine FILLIT puts in 
the new requests. An end of file is added, completing the file. 
Routine FILLIT removes the accession numbers from the list in bank 
4 by changing the value to 7777 7777 and places the proper value in 
file 27. 

If there is data in the file and the current day is not in the file, 
the routine adds the new requisitions at the end, using FILLIT and 
the pointers in the first block are modified to reflect the change. 
When the current day header is in the file, the new tests are added 
to the end of existing tests for that day, with new blocks of data 
created. The remainder of the file is then transferred into the 
new block chain. Any blocks that are no longer in use will be 
released for use. When a card is filed, bit 0 of the word in 
LISTAB is set to 1. AFter all of the requisitions are entered, the 
program jumps to routine DELCRD in bank 7 which removes all of the 
cards filed from the scratch file. 

DELCRD then loads overlay RI into bank 6. RI searches through the 
LISTAB list and first prints the list of cards filed, and then 
prints the list of the cards not filed. RI then rereads overlay 
R7 into bank 5, sets up the initialization of the pointers for R7 
and jumps to bank 5. 



3.8.1 Error Messages (Card Reader ) 


The following error messages will be printed during the operation 
of the program during card reader input. 


MESSAGE 


MEANING 


TYPE 1 OR 2 

FEED ERROR, CHECK CARD DECK 
CARD READER NOT READY 
WAITING FOR SCRATCH FILE 

DISK ERROR 

NO GOOD 
ENTER CODE 

ILLEGAL CHARACTER IN STRING 

NUMBER TOO LARGE 

NO CARDS IN LIST 


A response of 1 or 2 was expected 
and was not received. 

A feed error was found in reading 
cards. Reload deck and press RETURN. 

The card reader was not turned on or 
the ready button was not lit. 

A scratch file counld not be obtained. 
The program will wait until a file 
is available. 

A read or write error was found when 
working with the disk. Program will 
exit. 

An illegal code was typed and 
rejected. Only P, L, N and A are 
valid. 

An illegal code was typed when 
entering lists of excluded or 
included cards. 

A number larger than 150 was entered 
in a list of excluded or included 
cards. 

All cards read have been filed. 
Program exits. 
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3.8.2 Card Requisition Entry Assembly Instructions ' 


All numbers are octal. 


ASSEMBLY 

PROGRAM 

CHAINS TO 
PROGRAMS 

PRODUCES 

BINARY BLOCKS 

START AT 
BLOCK 

NUMBER OF 
BLOCKS 

ON STARTUP 
TAPE AS 

RE 

RE-1 

15 

1 

12 

RE 


RE-2 


13 

2 

RG 


RE-3 





R7 

None 

5 

1 

4 

R7 

R8 

None 

6 

1 

5 

R8 

R9 

None 

7 

1 

6 

R9 

RO 

None 

3 

1 

2 

RO 

RH 

None 

3 

1 

2 

RH 

RI 

None 

3 

1 

2 

RI 
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3*9 FLOW CHARTS FOR CARD REQUISITION ENTRY 


STS 



TERMINAL 

INPUT 











MAIN CARD READER AND INITIAL DATA PROCESSING 
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B 



. CARD READER TERMINATION LOOP 
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PROTYP 



ROUTINE TO PROCESS CARD TYPE CODE 
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PRONUM 

O 


* 



EXIT PATIENT NUMBER FROM CARD 


3-64 










PROACC 



MULT NUM BY 



/"••pm MAOn 

1 

vjij 1 vvvjruj 



ROUTINE TO PROCESS ACCESSION NUMBER 












PROTIM 



ROUTINE TO PROCESS TIME 
























ROUTINE TO PROCESS MONTH 
PART OF PRODAT ROUTINE 
































BANK 5 OF RE 



LOOP FOR ADDITIONAL ERROR CHECKING 
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OVERLAY TO CHECK TESTS FOR DUPLICATION AND REPETITION AND SET APPROPRIATE FLAGS 

3-73 

















20 


OVERLAY R0 


T 



OVERLAY TO RESERVE ACCESSION NUMBERS 































GET LIST OF 
CARDS WITHOUT 
ERRORS 


GET LIST OF 
CARDS WITHOUT 
ERRORS 
















GET LIST OF 
CARDS AND 
ERROR TYPES 
(GETERR) 


GET A CARD 
NUMBER AND 
PUT IN TABLE 


LOAD OVERLAY 


/ IS X. N 
CARD TYPEX_ 
, VALID? 


SET BIT 0 
OF ERROR 
WORD 


SET BIT 4 
of WORD 


20 i BANK 6 


GET DATE 


N/ IS 
/ DATE 
\ OK 


GET TEST 


GET DWN 

<x - 

PTR 


▼ 

Xis\ 

N 

yS PT NUM X 

X. LEGAL?/ 

? ^ 

Y 

—i 


GET ACC 
HUM 


ACC NO. 
LEGAL 


SET BIT 1 
0F WORD 



SET BIT 6 
OF WORD 


SET BIT 5 
OF WORD 



GET TIME 


y is \ 

/ DUPLICATE^ 
\ FLAG / 
\ SET/N 



SET BIT 3 
OF WORD 


MO REX. N 


TESTS \ 

T0 A 

vCHECK^ 


' MORfX 


CARDS? 


ROUTINE TO GET A LIST OF CARDS 
AND ERROR TYPES FOR EACH CARD. 


3 -' 

































OVERLAY R8 
PRINT CARDS 



TOP OF 
FORM 


PUT IN CARD 
NUMBER 



9 



* 


GET TIME 


♦ 



© 


OVERLAY TO PRINT CARDS INFORMATION 





















R8(CONT.) 



RETURN TO 
R7 BANK 5 



*4 


f 


PRINT CARD ROUTINE (CONT.) 
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BANK 6 


OVERLAY R9 



READ IN OVERLAY 
RI 


SEE NUMGET 


SEE PRELIM 


SEE CHKLEN 


SEE PROCESS 


OVERLAY TO ENTER DATA INTO PATIENT'S FILE 
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20 


BANK 6 








GET AND STORE 
iDWNPTR 


GET AND STORE 
TIME _ 


GET AND STORE 
DATE (FILDAT ) 



ROUTINE TO INITIALIZE PATIENT DATA FOR A CARD 
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PRELIM 



READ IN 
SUBFILE 
POINTER 



ROUTINE TO ANALYZE PATIENT f S FILE BEFORE STORING REQUESTS 
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CHKLEN R9 



© 


i ROUTINE TO CHECK IF NEW REQUISITIONS WILL OVERFLOW 
MAXIMUM ALLOTTED SPACE FOR THIS PATIENT 
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DELCRD 


OVERLAY RI 



OVERLAY TO PRINT A LIST OF CARDS FILED AND NOT FILED 
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OVERLAY RI (CONT 



20 


BANK 5 










CQRE MAPS FOR CARD REQUISITION ENTRY 



READ CARDS 
TO B 


CHECK TESTS 
TO C 


CHECK ACC.# 
TO D 


OPTIONS TO 
E, F OR G 
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CHAPTER 4 


DELETE DATA (DE) 


The DELETE DATA program offers a choice of four options to delete 
patient data: 

1. delete all test data for a specific patient, 

2. remove all of the patient’s test and administrative 
data, 

3. remove all of the patient files for a specific patient 
type, 

4. delete a test, battery, or package from a patient’s 
file (refer to section 4.5). 

Refer to the Sample DE dialogue illustration in Figure 4-1. The 
program operates in three phases for the first three items above: 


In Phase 1 you select the patient files whose data is to 
be deleted (either by individual or by type). The com¬ 
puter will then put all the patient files to be deleted 
in a "delete” status but will not actually delete them 
yet. If desired, you may request a list of patients' files 
in the "delete status" and then edit this list by removing 
files placed on it in error and then adding other files 
to be deleted. 

During Phase 2, any tasks, e.g., final summaries, can be 
run on the files in the "delete status". When Phase 2 is 
finished, the system automatically moves into the third 
phase which is the actual deletion of the patient data 
selected above. Once the program is in phase 3, there is 
no way to stop the deletion process (not even CTRL/S)? 
however, in phases 1 and 2 you may restore the patient 
files by simply typing STOP],) . 


4.1 PRELIMINARY OPERATING PROCEDURE 


1. Type CTRL/C to alert the system for a program call. 
Note that the DE program can only be run on one 
terminal. 

2. Type DE J . 

3. Observe the terminal for this message: 

ENTER FUNCTION, STATUS, ACTIVITY (,DATE-MONTH/DAY) 
ENTER CODE* 
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DE 

ENTER FUNCTION, STATUS, ACTIVITY (,DATE-MONTH/DAY) 

ENTER CODES * P,C,A,12/1 
♦DELETE MODE* 

* T,IN 

* P,724887 

* 

♦EDIT MODE* E L OR C * L 

OUTPUT DEVICE (1-TTY, 2-LPT, 3-SCOPE) 

TYPE 1, 2 OR 3 * 1 

DELETION LIST 7/12/1972 PAGE 1 


PAT. NAME 

TYPE 

WARD 

ROOM 

DR. 

PAT. NUMBER 

ZIMMERMAN HAROLD 

IN 

4W 

123 

RDF 

721345 

HONGISTO FRED 

OP 

MEM 



724887 


E L OR C * E 
PATIENT # : 721345 

PATIENT # : 

E L OR C * 

♦DELETE MODE* 

* P,721302 

* 

♦EDIT MODE* E L OR C * L 

OUTPUT DEVICE (1-TTY, 2-LPT, 3-SCOPE) 

TYPE 1, 2 OR 3 * 1 


DELETION 

LIST 

7/12/1972 

PAGE 1 


PAT. NAME 

TYPE 

WARD 

ROOM 

DR. 

PAT. NUMBER 

HONGISTO FRED 

OP 

MEM 



724887 

JOHNSON MARY 

SS 

MAT 

10 

KLP 

721302 


E L OR C * C 
BEGINNING DELETION 
TTY IS FREE 


Figure 4-1 Sample DE Dialogue 
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4. Type SHOW MEi) to ask the computer to explain the 

optionals available. The following message is printed: 

"FUNCTION" 

P-DELETE PT. 

D-DELETE ALL TEST DATA FOR A PT. 

T-DELETE A SINGLE TEST/BATTERY/PKG. 

"STATUS" 

C-DELETE ONLY IF ALL TESTS COMPLETE 

I-IGNORE STATUS 

"ACTIVITY" 

A-DELETE ONLY IF NO ACTIVITY SINCE LAST SUMMARY 
ItIGNORE ACTIVITY 
"DATE" (OPTIONAL) 

DELETE ONLY IF NO REQUISITIONS SINCE SPECIFIED DATA 
ENTER CODE * 


5. Choose the "FUNCTION" option: 

"P" if you wish to delete entirely all data for an 
individual patient or all data for patients of a 
certain type, e.g., all outpatients. That is to 
say, this option removes all the administrative 
and test data so that the selected patient data will 
no longer exist on the lab files. 

"D" if you wish to delete just the test result data 
from the files for a particular patient or for all 
patients of a certain type. This option leaves the 
patient administrative data intact so that you may 
add new test results. 


NOTE 

P and D functions cannot be "mixed". You must 
finish one function first and then run the 
program again for the second function. 

"T" if you wish to delete only a single test, 
battery, or package, e.g., if a test was accidentally 
requested in error. Note that this option does not 
require a STATUS or ACTIVITY as do options P and D 
above. See section 4.5 for further instructions. 


6. Choose a "STATUS" option for only the P and D functions 
above: 

”C" status will delete data only for those patients 
selected whose tests are all complete. 

"I" status will delete data for all the selected 
patients, whether or not the tests are complete. 
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7. Choose an "ACTIVITY” for options P and D above: 

"A" activity will delete the patient data only if 
there has been no activity (requisitions) since 
the last SUMMARY. 

"I" activity allows the data to be deleted whether 
or not new activity has occurred since the last 
SUMMARY. 


8. If you wish to delete those files which have had no 
new requisitions since a certain date, enter that 
date. The date may be any month and day in the 
current year. Note that if a new year has just begun, 
the computer will accept a December date from the 
previous year but not a November or ealier date. 

The date may also appear as a day/month if this format 
was chosen during installation. Type RETURN to omit 
the date. 


9. Type the choices made in Steps 5-8 above, using the 
format: 

FUNCTION, STATUS, ACTIVITY (,DATE-MONTH/DAY 

Example: If on December 16 you wish to delete all 

the data for out-patients whose doctor 
has not requested any new tests since 
December 1, whether or not all their 
tests are complete, type the following 
line: 

p,i,i,i/ij 


4.2 PHASE 1 


4.2.1 DELETE Mode Function P or D 


1. If function P or D was chosen above, the computer 
prints this message: 

*DELETE MODE* 

* 

and waits for your reply. 

& 

2. Type SHOW ME^ to obtain the following list of 
valid replies for the P option: 

P,PT. #-DELETE SPECIFIED PT. 

T,TYPE-DELETE PTS. OF SPECIFIED TYPE 
* 

or thie message for the D option: 

P f PT. #-DELETE DATA FOR SPECIFIED PT. 

T,TYPE-DELETE DATA FOR PTS. OF SPECIFIED TYPE. 

★ 
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3. a. Type in P, and the patient number*) if you 

wish to delete the data for a specific individual 
b. and go on to Step 4; or, type T and the 

2-character patient type code^ if you want 
to delete the data for all the patients of that 
type; e.g., T, OP*) . Proceed to Step 5. 

You may also press the RETURN key which causes the 
program to enter EDIT MODE (see Section 4.2.2). 


4. The computer responds by checking that the patient 
number you specified meets the criteria of STATUS 
and ACTIVITY. If the patient specified does not 
fulfill the criteria, the following message is 
typed: 

PT. DOES NOT MEET SPECIFIED CRITERIA. 

Or, if the patient does meet the STATUS and ACTIVITY 
criteria specified, the computer responds with an 
asterisk indicating that the patient's files have 
been flagged for deletion and that you should continue 
on with the next patient number to be deleted. 


5. If T,TYPE was chosen in Step 3, there will be no 
response except for an asterisk, which means that 
the data for patients of that type is flagged for 
deletion. You may now continue entering type 
codes for deletion. 


6. When you have finished Steps 4 and 5, press RETURN 
to enter EDIT mode. 


NOTE 

If you accidentally try to delete a patient 
file both individually and then by type, no 
harm is done. That patient file will not be 
printed twice on the delete list. No error 
message is printed. 


4.2.2 EDIT Mode 


In response to the RETURN above, the computer prints 
the followings 

*EDIT MODE* 

E L OR C * 


Type SHOW ME^ to ask the computer for an explanation. 
The following message is printed: 

E-EDIT: REMOVE PATIENT FROM DEL. LIST 

L-LIST ALL PTS. IN DELETE STATUS 
C-CONTINUE 
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. Type L ) to generate a list of patient files on the 
delete status. The delete listing will be in the 
same chronological order as you requested deletion. 


4. The computer reacts by printing out this message: 

OUTPUT DEVICE (1-TTY,2-LPT,3-SCOPE) 

TYPE 1,2 OR 3 * 


5. Choose the device desired and press RETURN. If 
the line printer is chosen and is in use, the 
computer will print: LPT IN USE. In this case, 
the message E L OR C * is again displayed. You 
may again select L and then choose another device. 


6. A listing is now printed on the device specified. 

The first two printed lines have the following format: 

DELETION LIST mm/dd/yyyy PAGE n 

PAT. NAME TYPE WARD ROOM DR. PAT. NUMBER 


7. When the listing is done, the message E L OR C* is 
again displayed. You may choose the E option now by 
typing E 


8. The computer will respond with an asterisk indicating 
that you may type in any patient number and a RETURN 
to remove that patient number from the delete status 
list. 


9. When you are finished removing any patient numbers 
which should not be deleted at this time, you may 
wish to type RETURN to return to the E L OR C * 
message and then generate another list to double¬ 
check the numbers to be deleted. If you wish to delete 
more patient data, type E in response to the E L OR 
C * message to put the computer again in "delete" 
mode and identify more patients to be put in "Delete 
Status". You may alternate between EDIT Mode and 
DELETE Mode as many times as necessary. 


10. When the list of deletes is completely satisfactory, 
type c) to continue to Phase 2. 


4.3 PHASE 2 


During this phase, you may run any program (such as final summary) 
necessary on the patient files to be deleted. 
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1. The computer reacts to step 10, section 4.2.2, by 
printing an asterisk. If you wish to go directly 
into the deletion process (Phase 3), type NONE*? . 
However, if you wish to request final programs on the 
"delete status" files, type the 1- to 4-character 
alphanumeric program code name (defined at installation) 
and RETURN. This code name instructs the system to 
automatically run the list of final programs which 
your lab has selected. There may be more than one 
code if your lab handles different type of discharges. 


2. When the programs have finished running, the system 
proceeds automatically into Phase 3. 


4.4 PHASE 3 (DELETION) 


1. When phase 3 starts, the system notifies you of that 
fact by printing: 

BEGINNING DELETION 

2. There is a fairly lengthy pause while the system 
completes the deletion process. When the process 

is complete, the program prints TTY IS FREE and exits. 


4.5 FUNCTION T OPERATING INSTRUCTIONS 


1. If function T was typed in Step 9 of the preliminary 
operation (Section 4.1), the terminal will print the 
following question: 

PAT. #: 

2. Enter the patient number associated with the test 
which you plan to delete and press RETURN. 


3. The terminal then prints the question: 

TEST NAME* 

4. Type the test, battery, or package code you wish to 
delete and press RETURN. 


5. The following message is printed: 

KEQ. DATE* 

6. Type the requisition date in the fomat mm/dd or 
dd/mm (depending on which one was selected during 
installation in your lab) and press RETURN. 


7. If a test or battery name was used in step 4, above, 
the computer will ask for the accession number by 
printing the message: 

ACC. NUM* 
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8. Type in the accession number for the test or 
battery to be deleted and press RETURN. 


9. The system proceeds to check the information; and, if 
it finds no errors, deletes the test and prints: 

DELETED 

If there is more than one occurrence of the same test 
with the same accession number on the same day on 
file, the following message is printed: 

x OCCURRENCES ON FILE (x = number found) 

RUN SUMMARY FOR THIS PT. ON THIS DAY 
CHOOSE OCCURRENCE BY ORDER ON SUMMARY 

This means that when a summary is run for the patient's 
file, the duplicate tests will be printed out in a 
certain order. If you wish to delete the second occur¬ 
rence of a duplicate test, for example, use the number 2. 
You may need to run a ward report also for this patient 
on that day if you are not certain which occurrence to 
delete because the patient has so many occurrences of 
that test. 


10. Press RETURN and then continue adding tests to be deleted. 


ERROR MESSAGES 



MESSAGE 

MEANING 

ACTION 

DELETE RUNNING AT 
ANOTHER TERMINAL 

DE may be run only 
on one terminal at 
a time. 

Consolidate 
the processing. 

FILE 3 OVERFLOW 

Too many patient files 
in delete status. 

Notify your 
supervisor. 

INVALID INPUT 

Some invalid format has 
been used. 

Try again using 
the correct 
format. 

NOT FOUND 

Test name or accession 
number is not in the 
file. 

If the name or 
number was 
typed incorrectly 
try again. 

PAT. NOT FOUND 

This patient number was 
not in the files. 

If you mistyped 
the number, try 
again. 

PLD ERROR 

The programs needed 
cannot be found on 
the disk. 

Notify your 
supervisor. 

WAITING FOR LPT 

Line printer is mal¬ 
functioning or turned 
of f. 

Check the line 
printer for the 
problem. 


4-8 



4.7 INTERNAL DESCRIPTION 


When started, DE performs an initialization procedure to determine the 
size of file 30 and file 26. The program reads the first 5 words of 
file 21 to establish constants for buffer sizes corresponding to the 
size of the patient number. The code is located in the disk buffer 
and is destroyed when the program starts. The program builds a mask 
of 77 or 00 bytes to mask out the reference field of a patient number 
when DE is concerned only with the patient number reference field. 

This mask code is located in the Teletype buffer and is destroyed 
when DE starts. 

4.7.1 P and D Options 

The code at PASSl is executed to build a dayheader with todays date 
and control is transferred to PASSIM. File 3 is opened for write and 
left open for the rest of the program. File 3 is "cleared" by writing 
7777 in the first few words. The user is then asked to pick the 
criteria for deletion and the delete function at PASS1A. If the T 
option is chosen, DT is loaded and control transfers to PASS1L/ 

When called, DE will always take the PASSl path. When DE is reloaded 
by some other program (e.g., after the user has run programs using a 
file 3 built by DE) and the necessary flags have been restored, DE 
will find STAGE2 flag set and proceed directly to PASS2. PASS2 is a 
subroutine that reads successive words from file 3 and uses them as 
file 26 positions just as if the user had directly entered a file 
26 position instead of a patient number. The deletion is actually 
done. 

The code at PASS1L asks for individual patients or types of patients 
to delete. Each time a patient file is entered, control passes to 
DEPAT and then back when done. Each time a type is entered, control 
passes to BATCH and back when done. The code in PASS1L allows the user 
to build a deletion list. Typing carriage return passes control to 
PASS1F. This allows the user to get a hardcopy listing of the deletion 
list and to edit it (remove patient files from it). Typing carriage 
return again transfers control back to PASS1L, to allow the user to 
enter more patient files for the deletion list. Transfers back and 
forth between PASS1L and PASS1F can occur as many times as is necessary. 



When the user finally types a C as input to PASS1F, the STAGE 2 flag 
is set and a PLD loads a chaining program which will generate reports 
for the records in file 3. An address of a list of items to be saved 
and restored when DE is reloaded is passed to the chaining program. 

The edit routine (to remove patient data in file 3) uses the DELSRT 
subroutine. It can do this because in the startup of PASS1 changes 
are made to DELSRT to make it look at file 3 instead of file 2. The 
BATCH subroutine does just the same thing that DEPAT does, except 
that it does it repeatedly on file 25 instead of asking for a single 
patient number. 

The code for generating listings of the delete status file consists 
of three sections: 

1) The INQURY subroutine that checks a list of addresses of 
GET subroutines to get the administrative data needed 
and then checks a list of addresses of buffers to put 
together to make a text line to send to a logical 
output device for successive file 3 entries. 

2) GET subroutines that are copied directly from the 
AD program. 

3) A set of subroutines that allow the program to print 
information through a logical output device. 

Once the user has identified a patient file or type to delete, DESUB 
determines if the patient file should be deleted and completes the 
actual deletion process. 

4.7.1.1 DESUB 


This routine examines the file 30 data of a given patient to find out 
if the patient file should be deleted. It uses the criteria that have 
been established from the preliminary dialogue to decide whether this 
patient is a candidate for deletion. While examining the file, DESUB 
builds a list of the file 30 blocks in use and another list of acces¬ 
sion numbers that were assigned to tests still incomplete. Only the 
first 128 accession numbers are kept. Any more are ignored, and would 
not be cleared in file 27 later. Only the first 19 blocks of a file 
will be examined and saved. The 20th block is treated as a logical 
end of file. When the end of a patient's data file occurs, control 
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passes to QOBATCH if, according to the deletion criteria established 
in the preliminary dialogue, the file is to be deleted. If the 
program is in PASSl (building a delete status file) the subroutine 
WRITF3 will be called. The new file 26 position will be appended to 
the end of file 3. If the program is in PASS2, the patient file will 
now actually be deleted. Note that DESUB has to go through just as 
much work in PASSl or PASS2, building the same kinds of core lists 
and rechecking this patients criteria. 

In PASS2, accession numbers in the list are cleared one at a time 
from file 27. If the patient had some file 30 data, all of file 34 
is read into core. The bits are cleared for blocks in the block list, 
and the whole file is written back out. This is all that is necessary 
to satisfy the "D H option. The subroutine now checks to see if the 
"D" option was chosen. If so, it returns. If not, DELSRT is called 
to delete the patient file from the sort files. Then DELAD is called 
to delete patients' administrative data. The DELAD subroutine is 
simple and generalized so that if non-standard pieces of data are 
added for a particular site, it is merely necessary to add four 
words of data to a parameter list to delete the information in that 
file. The process described in this routine is then sufficient to 
handle the "P" and "D" functions. The calling subroutines for the 
different options do all of the preparatory work to get a file 26 
position of a patient file to delete. DESUB does the work of deciding 
whether the file ought to be deleted and then may or may not do the 
actual work of deleting it. If the criteria imply the file is not 
to be deleted, control is transferred to Q2BATCH. If the program is 
in PASSl and not; in batch mode, the user will be notified that this 
patient file will not be deleted. 

4.7.1.2 BMP30 


This subroutine allows calling subroutines to treat the patients 
file 30 data as if it were one contiguous file. If called with AC 
equal to 0, BMP30 initializes itself and reads the first block from 
the file. If called with AC not 0, this number is used to move 
through the file. The blocks found are stored in a block list in case 
the calling routine needs to use them later. Before the next block 
in a string is read, the W30FLG flag on page 0 is checked to see if 
the current block should be written back out first. If an invalid 
forward pointer, or too many blocks, or a 7777 occurs, there is an 



indirect jump through the end of file transfer address END30 on page 0. 
Otherwise, when the routine returns, the AC contains the value of the 
word to which it was specified to move. It is not necessary to save 
this word since the buffer in core still contains the block that it 
was found in, and APOS30 on page 0 contains the absolute address of 
this word in the buffer. Note that the P and D options always use 
the same end of file jump address, but that this is modified several 
times on each pass with the T option. 

4.7.2 Single Test Deletion Option of DE 

The code and text for this option comprise 4 blocks and are in overlay 
DT. A good deal of this code exists to take into consideration the 
possibilities that multiple occurrences of the same day header can 
occur in file 30 and that multiple occurrences of tests with the same 
accession number can occur in each of these day headers. 

For each new item to delete, it is necessary to enter the patient num¬ 
ber, the test name, the day on which it was requisitioned, and if the 
test is not a package, the accession number that was assigned to it. 
Two lists of interest are kept. One list contains up to eight 
occurrences of dayheaders (the same value) of the one specified. 

More than eight is treated as a logical end of file. The entries 
in the list contain three words. The first word is the "sequence 
number" of the occurrence of a candidate for deletion. The next two 
words contain the file 30 block and word in which the dayheader 
occurred. The other list contains two word entries containing the 
block and word in which the test or package occurred. The nth entry 
in this list is "sequence number" n. After these lists are built, 
they are examined to see how many entries occurred. Normally, there 
will only be one dayheader and one entry. If there are no entries, 
the program types "NOT FOUND" and prepares for the next input. If 
there is more than one entry, it is up to the user to now specify 
which occurrence to delete. The program types a message telling the 
user to run a summary for this patient on this day, and to choose the 
sequence number of the proper entry to delete. 

A summary should reflect the order within the actual data file that 
multiple occurrences of a given test under disjoint occurrences of the 
same dayheader are present. The user must determine under which 
accession numbers the occurrences were entered. It may take some 



time to determine which occurrence to pick, so if the user does not 
want to make a choice, typing a carriage return will escape back to the 
beginning of the H T M option. Once the proper sequence number has 
been typed, the entry will be deleted, picking the proper dayheader and 
entry from the two lists. 

The program now reexamines the entry to be deleted. If the entry to 
be deleted is a test or battery, it is examined to see how many in¬ 
complete results are present. This number will be used to adjust the 

test count later. The accession number then becomes the only entry 
of an accession number list. If the entry is a package, this process 
must be repeated for every test and battery in the package. Up to 
128 entries can be put into the accession number list. The test 
count is then adjusted. Then the file 30 entry is changed to reflect 

its new delete status. After this, the data in the dayheader is 

reexamined for incomplete results. If a test with an incomplete result 
is found, the program checks for its accession number in the accession 
number list and removes it from the list. When this process is done, 
the remaining accession numbers in the list will be deleted from file 
27. The program then returns to the beginning of the "T" option. 

4.7.3 Utility Routines 

There are a number of utility subroutines at the beginning of the 
programs. The code developed by source modules AD+DE.l and AD+DE.2 
is common to both programs. Generally these routines have their own 
unique constants associated with them, even though there may be some 
duplication of values, program modularity is more important. The 
routines for terminal I/O use registers R5, R6, and R7 destructively 
and do not require their contents to be maintained between calls of 
the routines. 

TYPIN 


This subroutine performs some initial processing of a terminal buffer 
already input. The 48 word input buffer is unpacked into a 72 word 
buffer. A carriage return is put in the 73rd word. The left most 
4 bits of all 73 words are cleared. If the first word of the buffer 
is a carriage return, CRFLAG flag is set. If not, leading blanks are 
eliminated. If the first non-blank character is a carriage return, 
both CRFLAG and BLANKF flags are set. If a non-blank character is 



found before carriage return, the next five characters are checked for 
"STOP” followed by a carriage return. If found, the program exits. If 
not, control is returned to calling program and R7 points to the word 
before the first word containing non-blank input. 

TYPER1 


Word following call contains address of a packed ASCII string. UNPACK 
is called to unpack it, and a carriage return is put at end of the 
buffer. TYPMSG is called to type it out, with AC equals two for TMX. 

TYPER2 


Works exactly like TYPERl except that an altmode instead of carriage 
return is put at end of buffer and AC equals three for TMX. 

TYPER3 


Works like TYPERl except that nothing is put at end of buffer and 
control returns immediately without typing anything out. 

LFEED 


Appends a carriage return to the output buffer and calls TYPMSG to type 
out buffer, with AC equal to two for TMX. 

UNPACK 


AC contains address of packed text string. Text is unpacked and 
appended to TTY buffer and followed by a blank. Unless TYPER3 has 
been called since the last time TYPERl or TYPER2 was called, this will 
amount to unpacking the text into the beginning of the TTY buffer. 

PACKBF 

a 

This subroutine packs a string of 8-bit ASCII characters into a buffer 
of 6-bit characters. Upon entry, the AC contains the address of a 
core buffer whose first word is the two's complement negative of the 
number of words in the buffer. Register R7 (when incremented) points to 
the address of the string of text to be packed. The characters will 
be stripped and packed until either 1) a carriage return is encountered 
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or 2) the destination buffer is full, whichever comes first. If 
carriage return occurs first, the buffer will be filled to the end with 
blank bytes (octal 40). 

BINSUB 


This subroutine converts a binary double precision number into a 
packed 6-bit ASCII text buffer. The calling JMS+1 contains the address 
of the first word of the two word source buffer; calling JMS+2 contains 
the destination buffer address, the first word of which is the nega¬ 
tive of the maximum size of the buffer in words. 

TYPMSG 

Contents of the AC is used for the TMX after the TTW. KRUNCH is called 
first to pack the 72-word buffer into a 48-word buffer in monitor 
format. 

SUDEV 


Asks user to specify an output device. Linecount constnat and logical 
device indicator (OUTDEV) are established. Page count is set to 1. 

ODOPEN 

The device indicated by OUTDEV is opened. If open is unsuccessful, 
control returns at call+1, else it returns at call+2. A form feed is 
done on the logical output device. 

ODCLOS 


The device indicated by OUTDEV is closed. 


DVOUT 


Whatever is in the output buffer is sent out via the device specified 
by OUTDEV. If the output buffer is empty, this will result in a line¬ 
feed on that device. The line count is incremented and compared to the 
report length. If they are not equal, control returns at call+1. 

If they are equal, a form feed is done on the logical output device, 
and control returns to call+2. 
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ODFD 


A logical formfeed is done on the device specified by OUTDEV. The 
current line count is reset to 1. 

DMULT 


The contents of LHMUL and RHMUL considered a double precision integer 
are to be multiplied by the contents of the AC, the results being put 
in LHRES and RHRES by successive additions. 

CMDPTR 


This subroutine calculates absolute addresses in the sort file using 
the formula (HOSIZE + 1) *DIRNUM.DIRNUM is the current directory being 
worked on and DSPTR is the relative address with that directory. 

OFILE 


This subroutine opens a list of files. The word following calling JMS 
contains the address of the list of files to open. The next word 
contains the trap command, either DKR or DKW. If all the files in the 
list cannot be opened, it closes all files that it has opened so far, 
does an unconditional TMX, and tries again to open the list. 

CFILE 


This subroutine closes all files currently open. 

DECSUB 


This is a double precision decimal to binary conversion subroutine. 

On entry, AC equals 0 and contents of R7, when incremented, point to 
string of ASCII digits followed by a carriage return. Calling JMS + 1 
contains address of first word of a two word buffer. If there are 
seven or less digits followed by a carriage return, conversion is 
made and control is returned to calling location +3. Otherwise, 
return is made to calling location 2. 
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DISKI 


This subroutine allows disk access in block mode. The three parameters 
following the calling JMS are: 

1) 2000 plus 2 times the file to be accessed, 

2) the block to access, 

3) the quarter and number of blocks to access. 

DISK2 


This subroutine allows disk access in word mode. The three parameters 
following the calling JMS are: 

1) 3001 plus 2 times the file number, 

2) the core buffer address to user 

3) the size of the transfer minus 1. 

The disk address within the specified file will always be taken from 
the double precision buffer on page 0 (LHRES and RHRES). 

Both disk routines use the switch WRSWCH to determine whether reading 
or writing is to be done. If monitor returns at the error return, the 
program will exit immediately. 

LPOUT 

The output buffer is packed into the lineprinter buffer. The constant 
at the beginning of the buffer (which is necessary for the PACK 
subroutine) is converted temporarily to the form that monitor expects. 
LPSEND is called to actually do the trap. Control will not return to 
LPOUT until the line is sent. 

SEARCH 


A specified file is searched for a specified bit pattern in each 
successive logical record. (The logical record length is also 
specifies). If such an entry is found, control returns a call+1 and 
the relative position of the record is contained in F26POS. If not, 
control returns at call+2. 
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CHAPTER 5 


TEST UPDATE 


The Test Update (TE) program allows the technician to enter or edit 
results in the patient test data file (file 30). New test results 
may be entered through either terminal or card reader input; pre¬ 
viously entered results may be edited using the terminal. 

The program is divided into two major sections, one handling terminal 
input, the other handling card reader input. Program TE is 
initially loaded and immediately asks for the input device. 

If input is through the card reader, T3 is loaded and jumped to. 

TE handles terminal input. 

5.1 TERMINAL INPUT 

5.1.1 Initial Input 

TE asks three initial questions: mode of operation, tech code and 
test/workstation name. Once these have been specified, they can¬ 
not be changed without leaving the program and re-entering. 

TE first requests the mode of operation, ENTER, MODIFY, or STOP. 

STOP terminates the program immediately. ENTER and MODIFY differ 
in the way in which a pointer to the first block of patient data 
is obtained. For ENTER, the accession number must be active so 
file 27 provides an immediate pointer to the first block of data. 

For MODIFY, the accession number may no longer be assigned to the 
patient for whom data is being filed, so the patient number is used 
to obtain a pointer to the first block of data. 

Once mode is established, TE requests the tech code, a number from 
0 to 63, for the results being entered. The six-bit binary number 
thus obtained is stored in bits 6-11 of the status word of each 
result which is updated. 

TE then asks for the test/workstation for which test results are 
being entered. Input may be a test name, a battery name, or, 
when operating in the ENTER Mode, a workstation package name. 

a. If a test is entered, instances of that test 
requested as a single test within the patient 
data will be found. 
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b. If a battery is entered, instances of that battery 
requested within the patient data will be found. 

Also, any instance of a request for a single test 
which is part of the battery will be found. 

c. If a workstation is entered, every request for a 
single test which is part of the workstation will 
be found. In addition, for every battery in the 
workstation, each result within the battery for a 
test which is explicitly part of the workstation will 
be found. For tests within the battery which are 
not themselves part of the workstation, results will 
not be found. 


5.1.2 Maps Constructed 


TE constructs two core resident tables on the basis of the test/ 
workstation name entered. The first is a test map in bank 6/quarter 2. 
It contains a 6-bit slot for every test/battery/package in the 
system, in the order in which they were defined in TABDATA. 


a. If a test is requested, its slot is given a 1 and 
all others are set to 77[NULL]. 

b. If a battery is requested, its slot is given a 40, 

each slot corresponding to a test in the battery 
is given a number equal to its position in the 
battery, starting with 1 and all others are set to 
77[NULL]. The battery may have no more than 37 ft 
tests in it. ° 

c. If a workstation is requested, all slots correspond¬ 
ing to tests in the workstation are given sequential 
values starting with 1, all slots corresponding to 
batteries in the workstation are given sequential 
values starting with 40, and all other slots are 
set to 77[NULL]. The workstation may have no more 
than 37g tests mentioned in it. It may also have 

no more than 37g batteries mentioned in it. And the 
sum total of all the tests mentioned within all the 
batteries, including duplications, may be no more 
than 340g. 


The second map is an image of file 42 for each battery which has a 
non-null value in the test map, residing in bank 6/quarter 1. The 
map is divided into two sections. The first section is 40 o loca- 
tions long and contains in each location a pointer to the second 
section of the map. For each battery in the test map, identified 
by an entry between 40 and 76, the entry points to a location in 
this index to the battery map: 40 points to location 1, 41 to 
location 2, etc. The entry in the battery map index points to 
the initial location in the second section of the map, where an 
exact copy of the file 42 pointers for the battery associated with 
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that index location may be found. The second section of the 
battery map is 340 g locations long. 

5.1.3 Patient Identification 

After the test and battery map have been constructed, TE is ready 
to start filing data. The technician must identify the patient 
for whom the data is to be stored. 

In the ENTER mode, the accession number associated with the test 
results to be filed must be active and must still be assigned to 
the patient for whom those tests were requested. TE saves the 
accession number for test identification and gets a pointer to 
the first block of data for the patient in question from file 27. 

The first block of file 30 is then read and location 2 of that 
block provides a pointer to file 26 which is used to get the 
patient name. 

In the MODIFY mode, the accession number associated with the 
results to be edited may be free or may have been reassigned, 
so the technician must provide the patient number. The patient 
number provides a pointer into file 26 which in turn provides 
a pointer to the first block of patient data in file 30. The 
accession number is also requested to provide identification of 
the test result in question. 

Once the accession # or patient #/accession number combination 
has been provided, TE types out the patient name for the techni¬ 
cian to verify. If the technician rejects the name, TE goes back 
and asks for the next patient identification. If the name is 
accepted, TE is ready to file results. It loads overlay T2 
into bank 5 and jumps to it. 

5.1.4 Finding Tests in F30 Data 

T2 starts at the beginning of the patient's file 30 data and searches 
for a match on accession number and test type. A match on test 
type for an individual test is a non-null entry in the correspond¬ 
ing slot of the test map. For a match on test type for a battery, 
the slot corresponding to the battery in the test map must be non¬ 
null. T2 then goes to the battery map locations for the battery. 

Each location contains a pointer to a test. For each test pointer 


5-3 



in the battery map, T2 looks at the slot in the test map corre¬ 
sponding to that test, A non-null value in the test slot constitutes 
a match on test type. 

5.1.5 Filing Results 

As T2 moves through the file 30 data, it saves the most recently 
encountered day header and the location - block number and location 
within the block - of the outstanding test counts. When a match 
on test type/accession number is encountered in the file, T2 types 
out the date of the test and the test name from file 35. If the 
test result is already complete, T2 decodes the result and prints 
that out also. On numerical results, T2 checks the abnormal bit 
(status word bit 3) and,if it is set, prints out a message that the 
result is abnormal. T2 then waits for the technician to input the 
new test result. 

If the technician types just Carriage RETURN, T2 simply skips over 
this test and goes on to look for the next test type/accession 
number match in the file. Typing just a dash (-) deletes the test 
by storing an English result pointer of as the test result and 
marking the test as complete. A test deleted in this manner can 
be restored at any time through TE. 

If the technician types a numerical or English result and possibly 
a dash followed by a modifier, TE decodes the result, checks for 
legality of the entire result, and stores it. 

A numerical result may be in the range 0-2047000 and may have up to 7 
decimal places. Ignoring decimal places, for numbers in the range 
0-2047, four significant digits plus a scale factor are saved. For 
results above this range only three significant digits plus a scale 
factor are saved. T2 checks to see if the result is within the 
normal range, and if it is not, T2 prints a message and sets the 
abnormal bit (status word bit 3) for that result. 

An English result or a modifier must have been defined in TABDATA. 

The four character code for the result is typed in and T2 searches 
file 44 for an exact match. A pointer to the result position in 
file 44 is stored as the test result. A modifier to a numerical 
result must be one of the first 511^ English results defined in 
TABDATA (since a pointer to a modifier is only 9 bits long). 



Any English result code may be used as a modifier to an English 
result. Bit 0 of the second word of the two-word result identifies 
the result type: 

bit 0=0 numerical result 

=1 English result 

Any error in the result or the modifier causes the entire input to 
be rejected. T2 then retypes the date/test name/previous result 
and waits for new input. 

When a result has been accepted and properly formatted, T2 stores 
the two result words in the proper two words of the file 30 data 
in core. The new tech code and abnormal bit (if required) are 
added to the old status word, the result complete bit is set, and 
T2 stores the status word too. Then the block of F30 data in core 
is written back onto the disk. If the result for this test was 
incomplete when T2 began, T2 then reads the block of F30 data 
containing the outstanding test count into core, subtracts 1 from 
the count and writes the block back onto the disk. T2 then reads 
in the first block of patient data, sets the new results activity 
bit, bit 1 of word 1, and writes the block back onto the disk. T2 
then returns to TE to ask for the next patient identification. 

5.1.6 Examples 

Below is a sample conversation with TEST UPDATE in the ENTER and 
the MODIFY modes, in the first example, input is in the ENTER mode 
and is for workstation WSAD which contains individual tests NA, K, 
CL, C02, and PH. In the second example, input is in the MODIFY mode 
and is for the test GLUC. In the examples, terminal output from TE 
is underlined. 



TE 

INPUT DEVICE 1-TELETYPE 1 2-CARD READER 
TYPE 1 OR 2* 1 

EHORS * E 
TECH CODE * 12 

TEST/WORKSTATION NAME * WSAD 


ACC # * 

31 

FAWCETT MICHAEL 

08/24 

NA 


137. 

08/24 

K 


_ 

08/24 

CL 


102. 

08/24 

CO 2 


NREQ 

08/24 

PH 


6.8 


OUTSIDE NORMAL RANGE 
ACC # * STOP 


TTY IS FREE 


TE 

INPUT DEVICE 1-TELETYPE 2-CARD READER 
TYPE 1 OR 2 * 1 

E M OR S * M 
TECH CODE * 12 

TEST/WORKSTATION NAME * GLUC 


PAT # * 82600 


ACC # * 

5864 

CANN ALLISON 

Y 


08/24 

GLUC 

168. (ABNORMAL) 

; 

256. - SEE 

PAT # * 

3957210 



ACC # * 

65 

WINCHELL SUSAN 

Y 



08/24 GLUC : 


PAT # * STOP 

TTY IS FREE 


teletype is a registered trademark of the Teletype Corporation. 
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5.2 CARD READER INPUT 


The card reader portion of TEST UPDATE is divided into two parts, 
the reading in and verification of the cards and the actual filing 
of the data contained on the cards. Input is assumed to be in 
the ENTER mode, and no result is filed unless there is an empty 
slot available for it. 

5.2.1 Initial Conversation 

The initial conversation is handled by T5. T5 first asks for the 
output device for listing the cards, terminal or line printer. It 
then instructs the technician to load the cards into the card reader 
and make sure the card reader is ready before going on with the 
program. T5 then selects the first scratch file it finds available - 
out of files 10-15 - on which to store the images of the cards read 
in. Once this conversation has been completed, it is never repeated. 


5.2.2 Verification 

5.2.2.1 Card Identification - T3 initiates a read of three cards. 

If for some reason three cards cannot be read, either because the 
cards ran out or because of some hardware problem with the card 
reader, T3 records the fact, to be dealt with later, and processes 
all those cards which were read in correctly. 

To process a card, T3 checks the first three fields of the card to 
be sure it is a valid card. Field 1, column 1, contains the card 
reader package identification. Rows 12 and 11 must be blank, identi¬ 
fying the card as a TEST UPDATE card. Rows 0-5 contain the six-bit 
ASCII code of the third character of the card reader package name, 

CD*T. T3 searches file 46 for a match on the package name. When a 
match is found, T3 gets the pointer to the file 50 definition of 
the package and stores it on top of column 1 in the card image. If 
any portion of field 1 is not valid, the card is rejected and its 
number in the pack of cards being read is printed out on the appropri¬ 
ate device, along with a message about why the card was rejected. 

Field 2, columns 2-5, contains the accession number for the data 
on the card. T3 removes the four columns, converting them to 
six-bit ASCII and storing the characters packed in columns 2 and 3 of 
the card image. The ASCII is then converted to a binary accession 
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number which is stored in the card image columns 4 and 5 in the order 
low accession number/high accession number. T3 gets a pointer to the 
first block of data for the patient using this accession numcer from 
file 27, and from word 2 of the first block of data gets a pointer to 
file 26 for retrieving the patient name. The pointer to the first 
block of data in file 30 is stored on top of column 6 of the card 
image. The ASCII accession number and the patient name are stored 
in an output buffer for the card. If any error occurs, either 
because the accession number contains a nonnumeric character (a 
numeric character is a single punch in a column/rows 0-9) or is 
completely blank (leading and trailing blanks are ignored), or 
because the accession number is not in use, the card is rejected 
and the appropriate message is output. 

Field 3, columns 6-7, contains the technician code for the date 
on the card. T3 takes the two columns, converts them first to ASCII 
and then to binary, and stores the binary on top of column 7 of the 
card image. T3 checks the tech code to be sure it is between 0 and 
63 and adds the ASCII to the output buffer. If any error occurs 
in the tech code format, either because of a nonnumeric character 
or an all blank field, or because the tech code is not in the range 
0-63 , the card is rejected and the appropriate message is output. 


When the three fields have been decoded as much as possible (when an 
error is encountered, processing is terminated), the number of the 
card in the pile plus as much information as was processed plus an 
error message, if necessary, is output on the chosen device. 

If the card is rejected, T3 does not decode any information, but 
simply goes on to decide what to do for the next card. If the card 
is not rejected, TE goes on to decode the information on the re¬ 
mainder of the card. 

5.2.2.2 Card Result Decoding - T3 looks at each result field of 
the card as defined by file 50. A blank result field, one in which 
there are no marks/punches in any columns, is ignored. For a non¬ 
blank field, T3 gets the test/battery name for the result and then 
decodes the result field. No result error checking is done; T3 
simply interprets the card image and prints what it sees. 
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For a numerical field, each column is converted to an ASCII char¬ 
acter. The ASCII characters are stored, packed, on top of the 
first half of the numerical field in the card image. For each 
column, no mark is a blank, a mark in rows 0-9 is a digit, a 
mark in row 11 or 12 is a decimal point, more than one mark in a 
single column is a question mark. The test/battery name and the 
result are added to the output buffer. 

For an English field, there can be more than one result in the 
column. T3 checks each row that could contain a result, as de¬ 
fined by file 50, and for each result it finds filled in, adds 
the test/battery name and the English result code from file 44 to 
the output buffer. Marks in rows which do not correspond to 
English results are ignored. For an English result field, T3 
makes no changes to the binary card image. 

T3 prints out one test result per line. When the end of this card 
is reached, T3 sets a bit in a card bit map corresponding to the 
number of this card in the stack of cards to indicate that so far 
the data on this card is to be filed. 

(If a card was rejected, T3 resumes here.) T3 then writes the 
image of the card in core onto the next 80 words of the scratch 
file. T3 looks to see if all the cards read properly on the 
current read - word 36lg of the card reader buffer contains a count - 
have been processed and if they have not, simply returns to process 
the next card. If all the good cards have been filed, T3 looks at 
the status word, word 360 o of the card reader buffer, to determine 

o 

if any errors occurred on the read. If no error bits are set, three 
cards were correctly read and processed and T3 returns to initiate 
the next read. An error bit is set if T3 runs out of cards in the 
card reader. In this case, T3 sets a flag to indicate that there are 
no more cards to process and goes directly to the card verification. 
If any other error occurs, T3 informs the user of the problem (feed 
error, motion error, light/dark error, word count overflow) and re¬ 
quests that the user either terminate now or fix the problem and con¬ 
tinue reading cards. If the user elects to terminate, T3 sets the 
flag to process no more cards and goes to the card verification for 
those cards which were read. If the user fixes the card reader 
problem, T3 returns to initiate the next card read. 



T3 has room to store 48 card images on the scratch file. It 
reads 46-48 cards, depending upon whether there are any errors 
during reading, before going to the card verification. 

5.2.2.3 Card Verification - When all the cards (up to 48) have 
been read and printed out on the appropriate device, the technician 
can verify the cards and decide whether or not to file all the cards 
which were listed. If all cards are to be filed, T3 loads T4 into 
bank 4 and jumps to it. If not all cards are to be filed, T3 asks 
whether any cards are to be filed or whether only selected cards 
are to be filed. If no cards are to be filed, T3 looks to see if 

any cards remain to be read and, if cards remain, initiates a new read. 

If the technician wants to selectively file some cards, he can type 
in the numbers of the cards which are not to be filed (a card number 
accompanies the output of each card) and as each number is entered, 

T3 clears the bit for that card in the card bit map. When all 
cards which are not to be filed have been entered, T3 loads T4 and 
jumps to it to file the remaining cards. 

T4 attempts to file all the data on every card which has not been 
rejected either by T3 or by the technician. The technician can 
either file or not file a particular card but cannot select informa¬ 
tion within a single card to be filed or not filed. 

5.2.3 Data Filing 

T4 attempts to file all information on each card which has its 
corresponding bit set in the card bit map. To file a card, T4 first 
checks file 27 to be sure that the accession number of the card 
has not been freed or reassigned, in which case the card is 
rejected. T4 then begins to scan the patient data looking for the 
last group of tests within the data which are using the current 
accession number. Within this group of tests/batteries are found 
all the open result slots for this accession number. And when 
another accession number, day header, or end of file is encountered, 
this accession number does not appear anywhere farther down in the 
file. (This is known because an accession number can only be as¬ 
signed to a group of tests and batteries if it is currently free, 
and when it is assigned, all the tests result slots are set up 
in consecutive locations of file 30 data.) Once this group of tests 
is located in the file 30 data, T4 is ready to file the results 
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on the card. T4 first locates the next nonblank result field 
on the card and then attempts to file the result. Card results 
are filed differently depending upon whether the card result 
field is defined for a test or a battery. 

5.2.3.1 Test - T4 searches the appropriate portion of file 30 
data looking for a match on accession number/test type/incomplete 
result slot. A test which was ordered as part of a battery will 
be found. If no result slot is found, T4 rejects the entire result 
field, printing out the test name and the result decoded in the 
same way as T3 decoded it on the terminal. If the result slot is 
found, T4 decodes the result and saves it for storing in file 30. 

If the result field is numeric it must be in legal format, i.e., 
no internal blanks, no nondigit characters, at most one decimal 
point, and it must be within the acceptable range for a TE result 
(as defined under TE terminal input). If no decimal point appears 
within the number, it is assumed to be to the right of the last 
digit. If the result is legal, it is converted to a binary man¬ 
tissa plus scale factor and saved for later storing. T4 then 
checks to see if the result is inside the normal range and if it 
is not,T4 prints an appropriate message and sets the abnormal flag 
(status word bit 3). 

If the result field is English, T4 looks at the result field from 
top (bit 0) to bottom (bit 11) and saves as the English result the 
file 44 pointer corresponding to the first legitimate mark it en¬ 
counters. It is possible to have two legitimate marks in a single 
column. This is in the case where the second English result, that 
is, the one farther down in the column, is a modifier (one of the 
first 511 English results defined in TABDATA for a numerical result; 
any English result for an English result.) In this case, the file 
44 pointer corresponding to that row is saved as a modifier to the 
English result. If there are more than two results in a column or 
if the second result is not a modifier, the entire result field 
is rejected. 

If the result field is legal, and if no modifier has been entered 
as above, T4 looks for a modifier to the English or numeric result 
in the next full result field on the card. (If the result field 
happens to be numerical and illegal, T4 searches for a modifier 
and if it finds one, rejects that along with the numerical result. 
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This is to prevent storing the modifier as the legal result for 
the test in question. The same problem does not arise in the 
case of an English field.) In order to be interpreted as a modifier 
the result field must a) be in the next full result field follow¬ 
ing the current test result field (that field must naturally be 
defined for the same test type as the current test), b) be an English 
result field, c) have only one mark/punch in it, and d) have a 
mark/punch which corresponds to a modifier. If there is a modifier 
to the result, according to the above conditions, the result is 
interpreted as a file 44 pointer and is saved. If there is no 
modifier, the new result field is processed later in the same 
manner as the current result field is being processed. 

If a legal result, with or without modifier, has been saved, T4 
stores the two word result in the empty result slot which was 
found. The result complete bit and the new tech code are added to 
the result status word. If the abnormal result bit applies, it 
is also set. The block of file 30 data is then written onto the 
disk. T4 also increments the count of test results which have 
been saved since the last time the current test count was updated. 

If the result field is illegal for some reason, T4 prints out the 
accession number, test name, and result(s) in the field, along with 
the appropriate error messages on the terminal. 

After the result field(s) has been processed, T4 returns to process 
the next full result field on the card. 

5.2.3.2 Battery - If the result field is for a battery, T4 searches 
the file 30 data for a match on accession number/battery type. Once 
the battery is found, T4 looks for the first empty result slot within 
the battery. The result is filed in this result slot. 

If the field is numeric, it must be legal as described for a test. 

The result is decoded and stored in the appropriate slot in the 

file 30 data in core. A check is made for abnormality, as in a test. 

If the result field is English, there may be as many results in the 
field as desired. The first result in the field is stored in the 
first result slot in the battery. T4 then looks to see if there 
if there is another empty result slot within the battery. If there 
is, T4 stores the next English result in the field in that slot. 
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T4 continues in this manner until either the end of the battery 
or the end of the result field is reached. If the end of the 
battery is reached and there are still results in the result 
field, the remaining results are rejected. Modifiers are never 
stored in a battery. Every English result is stored as a separate 
result for a test within the battery. 

If the end of the result field is reached and there are more empty 
slots in the battery, T4 looks at the next non-blank result field 
on the card. If it is defined for the same battery as the present 
one, T4 proceeds to file the results in the next free slots, as above. 

When the battery is full, or when there are no more consecutive 
nonblank result fields for the battery or when an illegal result 
field (numeric) is encountered, T4 writes all the battery results 
in core onto the disk. For each result that is updated, the count 
of results filed is incremented by 1. 

Results which are illegal or results for which there are no open 
result slots are rejected. 

5.2.3.3 Updating the Test Count and Activity Bit - The outstanding 
test count is updated when the end of a card is reached. T4 reads 
in the block containing the test count for the test results which 
were updated (they all appear under one day header), subtracts the 
number of results updated, and writes the block back onto file 30. 

T4 also updates the test count as above if an illegal result field 
is encountered. Before exiting for terminal output, T4 updates 
the test count for all legal results which have been filed so far. 

When a card is completed, T4 checks to see if any results from 
that card were filed. If any were, T4 reads in the first block 
of patient data, sets the new results activity bit (bit 1 of word 1), 
and writes the block back out on the disk. 

5.2.3.4 Clearing the Accession Number - When the end of a card has 
been reached and the test count updated, T4 makes a final scan of 
the file 30 data (beginning where the last instance of the accession 
number was found initially and going to the end of the data) look¬ 
ing for incomplete result slots with the current accession number. 

If none are encountered, the test update for the current accession 
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number is finished. T4 checks file 27 to be sure the accession number 
still belongs to the same patient and if it does, T4 clears the 
accession number in file 27. T4 then returns to process the next 
card to be filed. 

5.2.4 Continuing 

When T4 has finished filing all the cards which are legal, it checks 
the flag set by T3 to see if there any any more cards waiting to be 

read and filed. If there are, T4 loads T3 and jumps to it. If & 

there are no more cards to be read, T4 terminates. 

5.3 SPECIAL PACKAGES USED BY TE 


TE uses two types of special packages during its operation, one 
during terminal input - workstations, the other during card reader 
input - TE card reader packages. 

5.3.1 Workstations 


Workstation packages, of the form WSab, can appear anywhere in the 
second segment of TABDATA. "WS" identifies the package as a work¬ 
station and a is a letter identifying the workstation. b is not used 
by TEST UPDATE. 


For example: 

///WSAD - AUTOMATED ELCT - 2fj2f 
NA 
K 

CL 

C02 

ELCT 

NAK 

Assume battery ELCT consists of the tests 

NA 

K 

CL 
CO 2 
PH 
OSMO 
PC02 


If a technician chose workstation WSAD to update, he would be able 
to update all individual tests NA, K, CL, and C02, all NA' s and K r s 
ordered as part of the NAK battery, and all NA's, K's, CL 1 s and 
C02 1 s ordered as part of an ELCT battery. TE would not allow 
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the user to update the PH, OSMO, or PC02 of the ELCT. It would 
also not find any instances of an NA, K, CL, or C02 ordered as 
part of a battery other than NAK or ELCT. 

The technician would not need to know how the tests were actually 
requested in the data file, and TE would not indicate. 

■ 

5-3.2 Card Reader Packages 

TE card reader packages, of the form CD*T, can appear anywhere in 
the second segment of TABDATA. ’'CD" identifies the package as a 
card reader package, "T" identifies it as a TE package and * is 
an alphabetic character identifying the package. 

The first line of the package definition is of the form 

///CDAT - CARD 1 - 00.00 

Following that is a definition of each field on the card, one field 
per line. 

For a numeric field, the format is: 

test/battery code-beginning column of field-# of columns in field 

(8-80) (1-9) 

For an English result the format is: 

test/ column number of row of code of row of code of 
battery of field results in result 1 result 1 result 2 result 2 
name (8-80) column 

( 1 - 12 ) 

For example: 

///CDAT-CARD 1 - 00.00 
# NA - 30 - 7 

fC - 40 - 7 

K - 50 - 1 - SEE - 3 - NR - 5 - WR - 7 - R 
CL - 60 - 7 
C02 - 70 - 7 
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The numerical result for NA is in columns 30-36. The numeral 
result for K is in columns 40-46. K also could have an English 
result (if the numerical field of the card is blank) or a modifier 
(if the numerical field of the card is full). The column contain¬ 
ing the result is 50. A mark in row 1 corresponds to English 
result code SEE, a mark in row 3 corresponds to English result 
code NR, and so forth. CL and C02 are numerical result fields 
in columns 60-66 and 70-76 respectively. 

The TABDATA input is translated into a package definition in 
file 50. For each result field on the card, the package defini¬ 
tion contains a group of words where: 

word 1: bit 0=1 for last test/battery in card reader package 

0 otherwise 

bits 1-11 = pointer to test/battery type in file 36 

for a numerical result: 

word 2: bit 0^0 for numerical 

bits 1-7 column where result begins 

bits 8-11 = width in columns of result 


for an English result: 

word 2: bit 0=1 for English 

bits 1-7 column where result lies 

bits 8-11 = number of different English results in this 
column (1-12) 


word 3: 


bits 0 - 3 = row of this result 

bits 4 - 11 = pointer to this result in file 44 


word n+2 


bits 0 - 3 = row of n th result 

bits 4 - 11 = pointer to this result in file 44 




•a 
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5.4 CARD FORMAT 


The TE card format is as follows: 


column 1: 

rows 

12-11 

= blank 


rows 

0-5 

= 6 bit ASCII character which is 
third character of TE package 
name 


rows 

6-9 

= ignored 

columns 2-5: 

four 

digit 

accession number, one digit per column 


columns 6-7: two digit technician code, one digit per column 

columns 8-80: results to be filed, as defined in the file 50 
card reader package definition 

for a numeric result 

rows 12-11 = decimal point 

rows 0-9 = digits 0-9 respectively 

for an English result 

rows 0-11, numbered from top to bottom 

of card, as defined in file 50 


5.5 ASSEMBLY INSTRUCTIONS 


The TE source is broken up into four parts: 


TE-T2 which chains to Tl, and T4 which chains to T3-T5 which chains 
to T6• The binaries are stored on the start up tape according to 
the following scheme. 

first number 

Overlay Name block of 

Source on Startup tape number blocks 


TE-T2, Tl 


TE 

Tl 

T2 


1 , 4 
11 , 2 
5, 4 


T4, T3-T5, T6 T3 

T4 

T5 

T6 


5, 4 
1 , 4 
11, 3 
15, 1 
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CHAPTER 6 


MANUAL CALCULATIONS 


The function of the MANUAL CALCULATION (CA) program is to accept raw 
data from the terminal, perform the calculation of final test results 
(answers), and automatically transfer the calculated results along 
with the appropriate raw data to the patient file when the acces¬ 
sion number(s) is entered. The program can be thought of as a desk 
calculator interfaced directly to the patient files. 

6.1 INPUT/OUTPUT 


Only terminal and disk are used. The terminal is used to obtain 
input from the user, type replies for the user, and type reports 
on request. The disk files are used as follows: 


FILE 


NAME 


USAGE 


00 

35 

44 


PROGRAM FILE 
TEST TYPE CODES 
ENGLISH RESULT CODES 


read only 
read only 
read only 


Files 20, 27, 30, 36, and 42 are used through DATA-PF as described 
in Chapter 7 , Patient Data Filer. 


6.2 FUNCTIONAL DESCRIPTION 


The user calls for manual calculations by typing iC and entering 
CA^ . The terminal response is: 


CALCULATION NAME IS * 


A 4-character name for the calculation is entered. If an incorrect 
name is entered, the terminal prints: 


NO SUCH NAME 

1. TRY AGAIN 

2. SHOW LIST 

3. STOP 

SELECT * 


6-1 



The number of the option selected is entered- Entering 3 ^causes 
the CA program to terminate and the terminal prints: 


CA PROGRAM DONE 

The CA program may also be stopped at any time by entering STOP#). 
The above message is printed and the program terminates. 

Selecting number 2 causes a list of available calculations to be 
printed as follows: 


CALC NAMES ARE 

ELCT 

CCLR 

etc. 


The same list is printed when SHOW ME is entered for a calculation 
name. After printing the list or after selection of option 1, a 
calculation name is again requested: 

CALCULATION NAME IS * 


When a correct code name is entered for a calculation code the 
terminal responds with the full calculation name, date and time and 
asks for the TECH CODE. For example, entry of CCLR^ results in the 
following printout: 


CREATININE CLEARANCE 
DATE XX/XX/XX 
XXXX HRS 
TECH CODE IS * 


The tech code can be i-6 3. If an incorrect number is entered, the 
message: 


ERROR - TECH CODE 0-63 

is printed out and the code is requested again. 


L> 
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After a legal tech code is entered, the terminal prints the data 
entry format for the calculation. For Creatinine Clearance, for 
example, the format is: 


ENTRY FORMAT 

U-VOL, PERIOD, U-CRET, P-CRET 


The data for urine volume (U-VOL), period in hours (PERIOD), urine 
creatinine (U-CRET), and plasma creatinine (P-CRET) are entered 
after the * on one line separated by commas. For example, a set of 
data might be: 


* 2173, 24, 65, 2.3 


The data are entered in the ORDER SPECIFIED IN THE ENTRY FORMAT . 
Data may be any number up to five digits with or without a decimal 
point. Thus, 65 and 65.0 are the same number. If a data line is 
entered in incorrect format any one of several error messages may 
be printed, as follows: 


MESSAGE 

ERROR-DATA OVER 5 DIGITS 
ERROR-TOO MANY 

ERROR-NOT ENOUGH 

ILLEGAL CHARACTER-ONLY ., & 0-9 
ERROR-MULTIPLE DECIMAL POINTS 

ERROR-BLANK DATA 


MEANING 

a number is too large 

may be too many entries on a data 
line 

may be not enough entries on a 
data line 

probably an alpha character entered 

a number has more than one decimal 
point 

an entry was made without digits 


After the data are entered, the calculated result (s) are printed: 


CCLR - XX.XX 
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Next, an English result will be requested if it is required . 

For example: 

SPECIMEN TYPE IS * 

A nonexistent English result causes the message 
NO SUCH CODE 

and the result is requested again. Any legal English result (from 
File 44) may be entered. (SPFL for spinal fluid, SER for serum, 
etc.). If the particular calculation type does not require an 
English result, the question is not asked. 

Finally, an accession number(s) is requested for the calculated 
results: 


PLASMA ACC # = * 


Five types of entries can be made for the accession number. 


ENTRY ACTION 

XXXX } When a valid accession number (1-9999) is 

entered, the terminal responds with the 
patient's name: 

(PT NAME) OK? * 

Enter y) or to accept or reject the name. 
y) causes the data to be filed. N/ causes the 
ACC# to be requested again. ✓ is treated as an 
IV. After filing the results, the terminal 
prints: 

FILED 

NEXT CALC 

* 

and waits for new data to be entered. 
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) 


An accession number followed by a comma and 
R treats the accession the same as above, but 
after the results are filed a formatted final 
report with the patient's name and nursing 
station is typed for the calculation before 
going to NEXT CALC as above. 

When R alone is entered, the terminal prints: 

DATE XX/XX/XX 
NAME * 

N.S. * 

waiting after each * for name and nursing 
station to be typed on the terminal. When the 
second J is pushed the formatted calculation 
report is printed and the program proceeds to 
NEXT CALC. No data is filed. 

Entering N,) causes the program to proceed 
directly to NEXT CALC. No results are filed. 

A ) alone skips the current accession number 
and proceeds to the next accession number or, 
if there are no more, to the NEXT CALC. Results 
for any valid accession number are filed. 


Accession number entries may result in the following error messages 


MESSAGE MEANING 

NO REQUISITION FOR THIS ACC# No requisition was entered or all 

results have been filed for it 
already. 

(name) NOT SAME PATIENT if more than one valid accession 

number is entered, subsequent 
number(s) did not belong to same 
patient as first entry. 

TTTT ALREADY FILED results already in patient's file 

for test (TTTT) indicated. 

TTTT NOT REQUESTED accession number was OK but test 

indicated (TTTT) was not requested. 


As before, whenever STOPy is entered, the CA program terminates. 


When more than one accession number is required, for example, urine 
and plasma for a CCLR package, each is requested. Any parts of a 
package can be filed by skipping accession numbers with ) as described 


N ) 
) 


XXXX, R J 


R J 
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above. Whenever a disk error is detected, the teleprinter prints: 


DISK ERROR, CA PROG TERMINATED 


The CA program terminates automatically. The program may be called 
into the computer again and the operation retried. If file 27 or 
30 is not available, the computer prints: 

WAITING FOR FILE 27 OR 30 

until the* file becomes available. 


6.3 PROGRAM NAME AND TABLES 


The basic Manual Calculation program consists of five routines in 
the program file: 


ROUTINE 

DIAL 



FILE 

MSC 



NAME 

NAME 

COMMENTS 


CA 

CAPROG 

Only routine called from TTY. CA is 
control program for the system. 

basic 

FP 

LBCM5-FP 

Floating point routine for LABCOM 5. 


CT 

CATEXT 

The CT program first tries to load 

the spec 


ified calculation from the disk program file. 
If the disk load is unsuccessful, the Tape 


Loader (TA) program is read into bank 6. The 
CT program tape loader modify subroutine tern- 
porarily modifies the Tape Loader (TA) program 
to allow the Tape Loader (TA) program to run 
in bank 6 and to load the specified calcu¬ 
lation from the UJ2E tape into bank 6. The 
Manual Calculation program then proceeds. If 
the specified calculation isn’t found on the 
UJ2E (unit 5) tape, 

CANNOT LOAD 

TTY IS FREE 

is printed on the calling terminal as the 
CA program exits. The CT program was assembled 
with the tape loader modify subroutine and with 
a seventeen program calculation name table 
(maximum 21). A calculation to be loaded by 
the tape loader is restricted to a maximum of 
three blocks. The CT program was also assembled 
without the tape loader modify subroutine and 
with the seventeen program calculation name 
table (maximum 34). This table starts at 
location 1060. 
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ROUTINE 

FILE 

DIAL 

MSC 



NAME 

NAME 

COMMENTS 


CF 

CALCFILE 

Asks for English 
and files results 
DATA-PF. 

results, accession numbers, 
in patient file through 

PF 

PF 

Files 1 result in 
used by Accession 

patient data file. Also 
number entry. 


In addition to the above five routines, each calculation has a 
CALCULATION SUB PROGRAM which specifies the formats, LINC and 
floating point code, and procedures to be used. Each SUB PROGRAM 
is filed as follows: 


SUBPROGRAM 

FILE 

NAME 

DIAL 

MSC 

NAME 

FULL NAME 

Cl 

CRCL 

Creatinine Clearance 

C2 

ELPR 

Electrophoresis 

C3 

STC1 

Urinary Hydroxy Steroids 

C4 

STC2 

Urinary Keto Steroids 

C9 

UREC 

Urea Clearance 

K5 

PSPE 

PSP Excretion Test 

K4 

OEST 

Urinary Oestriol Test 

K2 

BRSC 

Bromo Sulphthalein Clearance 

C5 

UCAL 

Urinary Calcium 

C6 

UUNA 

Urinary Sodium 

C7 

UUCL 

Urinary Chlorine 

C8 

UUKK 

Urinary Potassium 

K3 

ALGR 

A/G Ratio 

K6 

ESTR 

Estriol 

K7 

PRPH 

Porphyrin 

K8 

HEME 

Hematin 

K9 

CPKS 

Creatinine Phosphokinase 

K1 

MECA 

Manual Entry Calculation 
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A table of the available calculations is at the end of the 


CATEXT manuscript (Location 1060). It has the format: 


4 char name in ASCII 

EOL in ASCII 

Prog file name, stripped ASCII 
4 char name in ASCII 
EOL 

Prog file name, stripped ASCII 

End of List 

(6 words per calculation code) 


_ c_ 

c 

L 

R _ 

_ _2 15 

_ . C 1 1 

E . 

L 

C 

T 

215 

Cl 2 

etc. 


7777 


When a calculation name is entered by a user, this table is searched 
for a name match. The CT program first tries to load the specified 
calculations sub program Cl, C2, etc. from the disk program file into 
bank 6. If the disk load is unsuccessful, the Tape Loader (TA) pro¬ 
gram is read into bank 6 and modified to load the calculation sub¬ 
program from the UJ2 tape which resides on unit five. If the spec¬ 
ified calculation isn't found on the UJ2 tape, 

CANNOT LOAD 

TTY IS FREE 


is printed on the calling terminal and the CA program exits. A 
calculation sub program which is designed to be loaded from the UJ2 
tape must be less than 4 blocks long. If it is stored on the UJl tape 
it may be 4 or less blocks long. 

Two procedures are necessary to implement a new calculation program. 


1. Prepare a SUB PROGRAM manuscript for the calculation and put 
the new SUB PROGRAM in the program file. 

2. Put the new calculation SUB PROGRAM name (e.g. CCLR) and 
program file name (e.g. C4) in the table of available calcu¬ 
lations in the CATEXT manuscript. 
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Putting a new name in the CATEXT table will be obvious from 
looking at the CATEXT manuscript. The preparation of a new 
CALCULATIONS SUB PROGRAM is explained in detail in section 6.5. 


6.4 MEMORY BANK DIAGRAMS 


The following gives the memory bank snapshots during various 
stages of the calculation procedure. 


NOTE 


LOWER MEMORY BANK UPPER MEMORY BANK 

SETUP TO CALCULATE 


7 

6 

5 

4 



1 

1 

1 

1 

1. 



- 

- • 


|j ll'FOC 


Jl 

h? 

.. J 


4 


. 


CA called from CT asks for CALC 
terminal. CA name, loads the 
loads CT. Trans-CALC SUB PROGRAM 
fers control and looks up all 

to CT. test types in 

File 35. Returns 
control to CA. 



[ZL— TEET.'T 




CA prints CALC name, 
date, time, requests 
TECH CODE. Prints 
ENTRY FORMAT. FP 
may be LMB during 
ASCII to FLT PT 
conversions. 


) 
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- 8 - 


ENTER DATA AND CALCULATE 


7 


6 

5 

4 



FP 



CT 


SUB 

PROG 




CT 


-- SUB ' 
-PROG 



CA 


CT 

n 

in! 

mn\ 



flul 

SOM! 

H 



FP 

l 

CA 


Enter data 
line on 
terminal 


Convert 
ASCII to 
FLT PT or 
FLT PT to 
ASCII 


Execute LINC Execute 

code in SUB floating point 

PROG code in SUB PROG 


PRINT AND FILE RESULTS 


7 

6 

5 

4 


CT 


FP 


—CA - 


Print re¬ 
sults (also 
see FLT PT 
to ASCII 
conversion) 





]^1,E 





-- - 


CF 

— 

!!j 

ill 

UA 

._iL 



Enter 

English re¬ 
sults. CF 
use TTY 
buffer in CA 



Enter ACC# 
and file 
results 



PF 


SUB 

PROG 


-eE.i 




Exit. If sum¬ 
mary reports, 

CL loaded in 
Bank 4 and 
started at loc.2 
















6.5 PREPARATION OF CALCULATION SUBPROGRAM 

The basic calculation programs (CA, CT, CF, and FP) operate from 
information in the SUB PROGRAM. To understand the use of information 
in the SUB PROGRAM is to understand the calculation system. A flow 
diagram is provided at the end of this chapter. The order in which 
information is used in the SUB PROGRAM implies the order of operation 
of the basic calculation programs, although it is not exact in some 
cases. 

Implementing a "new" calculation requires the development of a new 
SUB PROGRAM. The following sections provide descriptions of the in¬ 
formation requirements in the SUB PROGRAM. When reading this descrip¬ 
tion it is assumed the reader is referring to examples in manuscripts 
(e.g., CCLR, ELCT). All pointers referred to can be found at the 
beginning of the SUB PROGRAM manuscript. 

6.5.1 Calculation Name (pointer A8+2000, loc. 20) 

The full calculation name to be printed when the SUB PROGRAM is 
called is put in as an ASCII string at tag AS. 72 characters maximum. 

6.5.2 Data Field (pointer 18+2000, loc. 30) 

The data field contains all data (constants, raw data, answers, English 
results, etc.) in six word formats: 

WORD 1 ABC XXX XXX XXX 

* A Precalculation input data if = 1 

* B Main calculation input data if = 1 

C not used 

X test type code number 

WORD 2 ENM MMM SSS PPP 

* E result is English if = 1 

N not used 

M English modifier 

S scale factor for result 

* P no. decimal places in result 

(same as channel storage word 4) 
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WORD 3 RRR RRR RRR RRR 

R numeric result or English pointer 

(same as channel storage word 5) 

WORD 4-6 floating point word 

For each datum in the calculation there must be a corresponding 
6 word data format in the data field. Only the bits indicated by * 
need to be set in each data format. Other information is provided 
automatically by the basic programs. 

6.5.3 Entry Formats (pointer B8 + 2000 , loc. 21; E8 + 2000 , loc. 24) 

The entry format is entered as an ASCII string at tags b 8 and E8 . Up 
to 72 characters are permitted. The line "ENTRY FORMAT" is always 
printed by the basic programs before printing the ASCII string. 

6.5.4 Number of Entries 

The number of data inputs required for the precalculation is put in 
SUB PROGRAM location 34, the main calculation number is put at loca¬ 
tion 35. Both are in octal. These numbers are used by the basic 
program to check for the correct number of inputs. 

6.5.5 Floating Point Code (pointer B8 + 2000 , loc. 21; E8 + 2000 , loc. 24) 

The floating point operations are entered by executing the JMP C8 at 
location 22 for the precalculation and the JMP f 8 at location 25 for 
the main calculation. If there is no code for a calculation the tags 
C8 or F8 must have a return to bank 4 at exit+1. For example: 

C8, LDA LOAD RETURN 

9 

STC .+2 

LMB4 

JMP /RETURN .4-1 

Actually, any code, whether LINC or floating point, can be executed 
at C8 or F8 as long as the JMP return is saved. Upon entry at C8 or 
bank 5 contains the floating point subroutine (LBCM-5FP) for 
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LABCOM 5 set to return to the SUB PROGRAM in bank 6 after each use. 


6.5.6 Program Patches 

Program patch 1 (JMP k 8, loc. 32) and patch 2 (JMP L8, loc 33) are 
provided for additional insertion of program operations. (Refer 
to the flow chart Main Calculation at the end of this chapter.) 

As for the floating point codes (C8, F8), the tags 18 and L8 
must contain at least a program to return to bank 4 at exit+1. 

Upon entry to patch 1 or 2, the floating point program is in 
bank 5 set to operate from bank 6. 

6.5.7 Print Result Formats (pointers D8+2000, loc. 23; G8f2000, loc. 

--26? H8t2000, loc. 27) 

Free formatted text reports for data can be generated at three times 
-1) after precalculation, 2) after main calculation, 3) at end of 
procedure. These reports are specified freely through the use of ASCII 
characters, tags, and appropriate delimiters. The general format is: 

TAG, ASCII TEXT 


7777 (a 7777 means result tag follows) 

data tag 1 (tag for data in data field) 

ASCII TEXT 


7777 

data tag 2 

215 (end of line) 

ASCII TEXT 


7777 


data tag 3 
ASCII TEXT 
etc. 


7777 (two llll's means end of report) 

7777 


/ 
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The basic program transfers the text string to the terminal buffer 
until a 215 (EOL) is encountered. Data formatted in ASCII is inserted 
automatically whenever a tag following a 777 7 is encountered. When 
constructing a text line one should allow for the length of the result 
so that more than 72 characters are not generated on a single line. 

If a line exceeds 72 characters it is truncated. A data tag can not 
refer to an English result. Only numeric results are automatically 
formatted for calculation output. 

6.5.8 List of Result Types (pointer T8f20J2(j2f, loc. 41) 

All results in the data field which are to go to the patient file 
are listed at T8 in the following format: 


T8, 


AA 

AA 

data tag 

BB 

BB 

data tag 
7777 


(four character stripped ASCII name 
as in file 35) 

(associated tag in data field 18) 
(second name) 
etc. 

(end of list) 


The result types in list 8T are looked up in file 35 and the numeric 
test types inserted in each data word 1 in field 18 each time the 
SUB PROGRAM is called. Thus, the data names must correspond to the 
correct names in file 35. 


If a name is changed in file 35 it must also be changed in the calcu¬ 
lation SUB PROGRAM. The list should also include any result in file 
35 which has an English answer (e.g., SPEC, specimen type). The 
English result is looked up automatically in file 44 when it is 
entered. 

6.5.9 Accession Number Entry (pointer J8 : +2ff0ff, loc. 31) 

Text for accession number entry is similar to the report formats with 
the addition of two locations for the accession number. 
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Example: 


(ALT MODE) 

locations for ACC number 
list of data tags to be 
filed with ACC # 

(end 1st ACC #) 

text, etc. for another number 


etc • 

7777 two end ACC # 

7777 entry procedure 

The basic programs type the text up to ALT MODE, accept the accession 
number, and file the associated data for the tags listed with each 
number. 

6.5.10 English Results (pointer R8 +20JJ0, loc. 42) 


English results are accepted by placing text at 8R as follows: 


R8, ASCII TEXT 


375 (ALT MODE) 

data tag 1 (only one data tag) 
ASCII TEXT 


375 

data tag 2 
etc. 

7777 (end of English results) 


The English result response entered on the terminal is looked up in 
file 44 and the numeric code inserted in the data result word by the 
basic programs. The English result type (not answer) is assumed to 
be in the file 35 list at T8. 


J8, ASCII TEXT 


375 

0 

0 

data tag 1 
data tag 2 

mi 
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6.5.11 General Directions 


Making all of the above entries in the SUB PROGRAM allows a new 
calculation procedure to be implemented. The system allows specifi¬ 
cation of the operational formats, the results for the patient file, 
numeric and English result types, and combinations of LINC and floating 
point code. It is assumed that new calculations will be implemented 
at the SUB PROGRAM level of programming. 

6.6 FLOW DIAGRAM 


A rough flow diagram for a typical calculation is shown below. The 
precalculation can be used to enter a set of standard test results 
which can be referred to by a series of calculations applying to 
different patients. 


START 



6.7 PROGRAMMING 


Refer to a typical calculation listing to see the general layout. 


The pointer table at the beginning of the program is standard for all 
calculations (except for the numbers of input data). 
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Some of the program sections need not appear in a particular program 
- e.g. precalc entry and output formats, final report format and 
English result text. When these are omitted, the corresponding 
symbol tags for these sections do not appear in the body of the pro¬ 
gram, and error messages are displayed during assembly. All the other 
standard program sections should be included (with dummy entries if 
necessary) to ensure correct operation of the calculation control 
programs. 

"Program patches 1 and 2" are executed immediately before and after 
the main calculation, respectively. LINC coding can be inserted in 
these places if desired (after the STC instruction). 

The precalculation and main calculation can include mixed floating¬ 
point and LINC coding - e.g., 

(LINC instructions) 

LIF 5 
JMP 20 

(floating point instructions) 

(last instruction 2 digits only) 

(LINC instructions) 

LIF 5 
JMP 20 

(floating point instructions) 

(last instruction 2 digits only) 

(LINC instructions) 

LIF 4 

(return jump instruction) 

Care needs to be taken when writing the floating point coding - so 
that, for example, integer-operand instructions are not used with 
floating point operands, and vice versa. 



In addition to writing the calculation sub-programs, the programmer 
must: - 


1. Write the programs on a startup tape using the System Build 
option (the usual directory code names for calculation pro¬ 
grams are Cl to C9). 

2. Alter, assemble and re-write the CATEXT (CT) program to in¬ 
clude a directory of calculation codes (four letters and/or 
numbers - no blanks) and the corresponding two-character 
codes used on the startup tape. 

3. Include in TABDATA the calculations which involve filing of 
results in patient files. The calculation four-character 
code name is used as the code name of a calculation battery, 
and items within the battery are results or data for filing. 
The four-character codes for the latter must also appear in 
the calculation sub-program under "results for filing". 


There are at present some errors in the calculation control programs. 
Consequently: - 


1. Accuracy in most calculations is limited to about three 
significant decimal figures. 

2. The single-line formats (e.g. for data entry) are limited 
to about 48 characters. 


6.7.1 Floating Point Subroutine 

The floating point package is a combination of the 1966 version of 
the Stanford Floating Point package (DFPF66) and a special driver 
package by Arthur A. Eggert. The package occupies LINC Bank 5 and 
executes the code in the calling bank. The calling bank is assumed 
to be bank 4, but can be changed per instructions in the LBCM-5FP 
manuscript. (See also the subroutines B1 and B2 in CAPROG.) 

6.7.2 Floating Point Instructions 


Floating point is used by inserting a series of two-word instructions. 
The first word is the operand and the second the operation. The 
calling sequence is: 
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/ LMB TO BANK 5 
/ ENTER SUBROUTINE 


LIF 5 
JMP 20 
operand 1 
operation 1 
operand 2 
operation 2 
operand 3 
operation 3 


operand n 
operation n 

return from subroutine 


6.7.3 Operand 


The operand specifies an address in three forms: 


1) Direct Address: 500, for example, is interpreted as the 
address of the number to be used in the operation. If the 
number is an integer, then only location 500 is used. If 
the number is in floating point format, locations 500, 501 
and 502 would be used. 

2) Indirect Address: Setting the 4000 bit refers to an address 
for the number required. For example, 4500 means the address 
of the required number is in location 500. Any location may 
be used as an indirect address (not restricted to the LINC 
index registers). 

3) Zero: A zero operand refers to the floating point accumula¬ 
tor. 


6.7.4 Operation Codes 

A complete list of operation codes is given below. The codes below 
40 8 are the standard codes for the Stanford package. The operation 
codes 40g and above are special transcendental functions. All opera¬ 
tions, including transcendental functions, use less than 0.5 seconds. 
The Floating Point driver will do a TMX after any lengthy transcen¬ 
dental operation. Note that the transcendental operations do not 
use the address field (operand) since X is assumed to be in the 
Floating Point Accumulator (FAC), 
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The 4000 bit set in an operation code means another code follows. 
If it is not set the subroutine returns to execute LINC code. For 
example: 


LIF 5 
JMP 20 
operand 

4000+operation code 
operand 

4000+operation code 
operand 

operation code 

return here from Floating Point 



Op Code 


Operation 


0 

1 

2 

3 

4 

5 

6 
7 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 


compute square root of the value in operand. 
Leave result in FAC 

clear FAC and add operand to FAC (LOAD 
operand. 

add operand to FAC 

complement operand and leave result in FAC 

multiply operand by FAC; result in FAC 

divide FAC by operand; result in FAC 

divide the operand by FAC; result in FAC 

add an integer operand to FAC; result in FAC 

multiply an integer operand by FAC; result in 
FAC 

divide the FAC by an integer operand 

divide an integer operand by the FAC 

convert FAC to an integer; leave in LINC 
accumulator 

Convert an integer to a floating point word; 
leave in FAC 

clear FAC and operand 

compare size of operand with FAC; larger 
left in FAC 

compare size of operand with FAC; smaller 
left in FAC 

check the sign of the operand; depending on 
whether it is positive, negative or zero, 
leave in the LINC accumulator+1, -1 or zero. 

add FAC to operand and store in operand, i.e., 
add to memory 

subtract operand from FAC; leave result in 
FAC 

store FAC in operand; also, leave in FAC 
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24 

set sign of operand positive; leave in FAC 


25 

set sign of operand minus; leave in FAC 


26 

subtract integer operand from FAC. Result 
in FAC 


40 

X n , raise value X to integer power n; n is 
in operand field, result in FAC 


41 

X y , raise value X to floating point power y. 

Operand is address of floating point number y. 

Result in FAC. 

- 

42 

e , raise e to power of x; x is in FAC; 
result left in FAC; operand field not used. 


43 

Log, 0 X, take log of X to base 10, X in FAC; 
resuit left in FAC; operand not used. 


44 

Log X, take log of X to base y. X in FAC; 
operand is address of floating point y; 
result left in FAC 


(For all 

the following operations, X is put in FAC before exe- 


cuting the code. Result is left in the FAC. Operand field is 


not used, 

but location must be allocated. User may use operand 


location. 

) 


45 

In X 


46 

sin X 


47 

cos X 


50 

Tan X 


51 

arcsin X 


52 

arccos X 

* 

53 

arctan X 


54 

hypersin X 

13 

55 

hypercos X 


56 

hypertan X 
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Certain limitations concerning the transcendental functions 
(codes 40 and over) should be taken into account. Except for 
the X n routine, whose speed is proportional to [n], the 
routines are relatively slow. This is because they require 
summations of series, and although the summations have been 
modified to cut down on the number of terms, it should not 
be assumed that they are instant. The longest routines are 
tan X and all the arcfunctions. Moreover, due to the extensive 
modification necessary to get the arcfunctions to run, they 
are inaccurate to the extent of 1 part in 100,000 for especially 
bad cases, though they are usually better. Other functions are 
good to at least one part in a million, usually 1 part in 10 
million or more. 


The transcendental function package also contains useful 
floating point constants, which can be accessed by the user. 


Constant 


Address in Bank 5 


tt/2 

TT 

ln2 

e 

10 


751 

767 

746 

772 

744 


All angles are expressed in radians. Remember that: 


degrees = * x radians 

T8f? 
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6,7.5 Floating Point Format 


The following explanation of the floating point word is 
reproduced from the Stanford description of floating point. 


The use of double precision floating point 
arithmetic seems essential if the LINC is 
to serve as a statistical processor. In 
using this type of arithmetic, the program¬ 
mer trades speed and space for ease in deal¬ 
ing with large numbers. Programs which are 
extremely laborious to write and debug may 
become rather trivial using these routines. 


A. A form of double precision floating point number: 




r-' 


rm 

n 


7m\ 

Lj 

Li, 11 

luj 

□ 

□ 



Exponent 


S *T _. bit u 

HffliJ I i 11IJ 1 TIT 1 TTT 


bit 0 


High Order Low Order 

Mantissa 


iUJ l 
_, / 


Word 1 


Word 2 


Word 3 


B. Floating an integer involves shifting the number right 
across the binary points until it is a fraction, and 
then counting the number of shifts to make up the exponent. 

In the above case, 5 = 101.000 in binary. Three shifts 
right produce 000.101. Since the binary point is always 

A 

located between bits 23 and 22, the floating point number 
contains 101 in bits 22, 21 and 20. The exponent equals 3. 

a 

3 

Another way of representing this binary number is .101 x 2 . 
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C. Normalized floating point numbers always contain their 
most significant bit in bit 22. The above number could 

4 

be represented in an unnormalized mode, such as .010 x 2 . 
But it v is never represented this way in the floating point 
routines, since this would waste precision out at the 
right end. In its normalized mode, .101 x 2^, the number 
contains 23 bits of precision. This corresponds to more 
than 7 decimal digits. 

D. Fixing a floating point number is the reverse of the 
float. It is shifted left across the binary point until 
the exponent equals zero. The fractional part remaining, 
if any,, is either discarded or used for rounding off the 
integer. 

E. Negative numbers are represented as the one's complement 
of positive numbers as in standard LINC integers. The 
mantissa (high and low order words) is merely complemented. 
Note that there is no sign bit in the low order word. 

F. Negative exponents indicate that the number is less than 
one and has been shifted left until it is normalized. 

The sign of the exponent should not be confused with 
the sign of the mantissa. .101 x 2 ^ is no more a 
negative number than is 5 x 10 ^. In the former the 
minus exponent indicates that if the number were fixed 
it would be .000101. The floating point routines would 
give a zero if requested to fix this number. 
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6.8 SPECIAL ASSEMBLY INSTRUCTIONS 


The driver package (LBCM5-FP)) manuscript is assembled under DIAL for 
the first 512.^ words (two blocks) of Bank 5. The two blocks of the 
DPFP66 (Stanford Floating Point) are available only as binary at 
present. The package is stored on the start up tape as 4 blocks under 
the name FP. The first two blocks are LBCM5-FP and the second two are 
DPFP66. 


1777 


512 _words 
10 


512 , n words 
10 


FP : 


1000 


DPFP66 

Binary 


LBCM5-FP 

Binary 


The rest of the overlays are assembled and stored in the program file 
as follows: 


Startup Tape 

DIAL 

No. Binary 

File Name 

File Name 

Blocks 


CA 

CAPROG 

5 

CF 

CALCFILE 

5 

CT 

CATEXT 

4 


There are equate statements at the end of CAPROG which reference 
addresses in CATEXT. 




) 
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FLOW CHARTS FOR MANUAL CALCULATIONS 


CALCULATION SUBPROGRAM 
FLOW DIAGRAM 


ENTRY 


TO MAIN 
CALC 
PAGE 
D-3 


O 


_M 

PRINT I 

calcul; 

NAME 

i _ 

^ULL 

\TION 

_^ 

L _ 

PRINT DATE 
AND TIME 

_i 

z_ 

REQUEST TECI 
CODE, PUT IIS 
jOC. 36 



CA IN BANK 4 WITH 
SUBPROG IN BANK 6 


POINTER A8+2000 
LOC. 20 


POINTER Y 8 + 2 j 000 
LOC. 37 


LOC. 36 HOLDS 
TECH CODE 


POINTER B8+2J000 
LOC. 21 


NOTE: if ta <7 B8 is undo fined in 

SUBPROG, then loc 21=2000 
and Lhoro is no PRKCALC 
text. 


TO PRE CALC 


j 
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PRECALCULATION 



POINTER B8 + 2 fijQjd 
LOC. 21 


POINTER 18 + 2j0j8j d 
LOC. 30 

(also see section on data format) 


Check Loc. 34 for 
CORRECT NO. ENTRIES 


EXECUTE JMP BC 
at Loc. 22 


POINTER D8 h2jd00 
Loc. 23 


MAIN CALC 






MAIN CALCULATION 


© 

- '-L _ 

EXECUTE 
PROGRAM 
PATCH 1 


_ ^ 

PRINT. MAIN 
CALC ENTRY 
FORMAT 


ENTER DATA 
^ LINE, XFER 
TO DATA 
FIELD 



ok 


vl/ 

2IXECUTE MAIN 
CALC FLT 
: 5 OINT 


EXECUTE 
PROGRAM 
PATCH 2 


_ 4 _ 

PRINT MAIN 
RESULTS 



© 

TO ENGLISH RESULT ENTPY 


execute JMP K8 
loc. 32 


pointer E8+2000 
loc. 24 


pointer 18+2000 
loc. 30 

(see section on data format) 


check loc. 35 for 
correct no. entries 


execute JMP F8 
loc. 25 


execute JMP L8 
loc. 33 


pointer C8 +2000 
loc. 26 
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FILE RESULTS AND PRINT REPORT 


©- 


next calc/1 no 
page 
D-2 


FILE RESULT? 
<FOR VALID 
ACC NOS., 

■ PRINT ANY 
ERROR 



V 

_ > 

yes 

L _ 

) * 

PRINT A 

FINAL CALL 
REPORT. 


\ 

J 

C 



LOAD CL & 
PRINT SUM¬ 
MARIES 


1- pointer 18 +2000, loc. 30 
(data field containing 
results) 

2. pointer T8+2000, loc, 41 
(list of results for 
patient) 

3. pointer J8 +2000, loc. 31 
(accession numbers and 
data tags) 


pointer H8 +2000 
loc. 2 7 

note: if no name has 
been put in heading 
text, it will pause 
for type in auto¬ 
matically (see CALC- 
FILE) 


NORMAL 

STOP 


PMX 


pointer 
M8 +2000 
loc 40' is PT 
ordinals for 
summary 



PMX 
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CHAPTER 7 


ACCESSION NUMBER ENTRY 


The Accession Number Entry (AC) program enables the technician to 
enter accession numbers as well as to obtain the computer calculated 
results of a given test from the channel storage area, edit them, 
and store the final results in the appropriate slot in the patient*s 
test data file. The program utilizes a conversational format with 
the technician which is designed to promote a complete exchange of 
information in the minimum amount of time. 


7.1 INPUT/OUTPUT 

Only terminal and disk are used. The terminal is used to obtain 
input from the user, type replies for the user, and to type reports 
on request. Disk files are used as follows: 


File Name Usage 


00 

PROGRAM FILE 

read only 

20 

PATIENT NAME FILE 

read only 

22 

N.S./DR. FILE 

read only 

27 

REQUISITION INDEX 

read and write 

30 

TEST DATA 

read and write 

32 

CONTROL/SCHEDULE BLOCKS 

read only 

33 

CHANNEL STORAGE 

read and write 

35 

TEST TYPE CODES 

read only 

36 

TEST PARAMETERS 

read only 

40 

TEST NAMES 

read only 

41 

ENGLISH RESULT FILE 

read only 

44 

ENGLISH RESULT CODES 

read only 


7.2 FUNCTIONAL DESCRIPTION 


w AC consists of three phases: (1) initial conversation, (2) edit 

conversation, (3) finalization. 

7.3 INITIAL CONVERSATION 

Call AC. The program responds: 


ACC # ENTRY hhmm HOURS mm/dd/yy 
TECH CODE * 
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The user responds with a number 1-63. He may type STOP at any time. 
He is then asked: 

AUTO. NAME(S) * 

The user responds with the names of the automatic instruments which 
he wishes to edit. If more than one, the names must be separated 
by commas and the instruments must have been collated when set up. 

If he requests more than one instrument or if the requested instru¬ 
ment has more than one result, the user is asked: 

CONSIST. DEL. * 

The user may type in one or more result codes (separated by commas) 
for those results which are not to be filed. The user is then in¬ 
formed and queried in one of two ways: 

HIGHEST CUP EDITED IS NNN. START AT CUP * 


or 


HIGHEST EDITED IS PLATE NNN, CUP NNN. START AT 
(PLATE, CUP) * 

The user responds with the cup number or the plate number, comma, 
cup number. The program then enters the edit phase. 

7.4 EDIT CONVERSATION 


AC searches for the next filable result or control, automatically 
skipping standards and special cups. When one is found, it types 
either: 


XX S * 

for a sample, or: 

XX C * 

for a control. The user then may type any of the following: 
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/J 

/xxj 

aapiaJ 

J 

-aaaaJ 


AAAA J 
XX. xj 

R J 

#XXXX J 


Move to the next cup. 

Move to cup XX. 

where AAAA is a test name. 

Move to that result. 

Move the next result. 

where AAAA is an English modifier. 

Modify the whole cup. 1 

where AAAA is an English result. 

Replace the whole cup. 1 

where XX.X is a number. Replace the 
whole cup only if there is only one 
result per cup. 

Print a formatted report. 

where 0<XXXX<9999. 

Assign an accession number to this cup. 1 
(replies "FILED"). 

FOR CONTROLS ONLY: accept the control 
(replies "ACCEPTED") 


After moving to a result within the cup, the following options (listed 
above) work differently: 


-AAAA^ where AAAA is an English modifier. 

Modify this result only. 1 

AAAA^ where AAAA is an English result. 

Replace this result only. 1 

XX. xj where XX.X is a number. 

Replace this result only. 


In addition, after moving to a result within the cup, the following 
option is available 


? Delete a result from channel storage 

and do not file it in the pacient tile 

The above operations may be combined on one line by separating the 
elements with a comma. The line is scanned from left to right. 
Anything to the right of: 


1) an error 
or: 2) / 

or: 3) /XX 


is ignored. 


1 Not applicable to controls. 
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7.5 


FINALIZATION 


When the user types STOP or a terminal error has occurred (see below) 
the program terminates by typing: 

AC DONE 

7.6 ERROR MESSAGES 


Error messages arise from two situations: user errors, and system 
or hardware errors. When an error occurs, one of the messages 
below is typed out. 

Regardless of the cause, errors can be classified as: 

a) Terminal - Terminal errors cause AC to exit as if STOP 

had been typed. 

b) Non-terminal - Non-terminal errors do not cause AC to stop. 

The program continues in the usual way. 


User Errors (all user errors 
USE DIGITS 0-9 

CODE 0-63 ONLY 

XXXX NOT SETUP 

XXXX BEING EDITED 

NOT A COLLATED SET 

ALL RESULTS MAY NOT BE 
DELETED 

NO CODE NAME (XXXX). 

RETYPE LINE. 


are non-terminal) 

A non-digit was found in a 
numeric field. 

A number greater than 63 was 
given for the TECH CODE. 

The specified instrument, XXXX, 
has not been SETUP on-line. 

The specified instrument, XXXX, 
is being edited from another 
terminal 

The instrument names given were 
not SETUP together (COLLATED) 
and hence cannot be edited to¬ 
gether. 

The user has requested to consist¬ 
ently delete all results. 

The user has specified a non¬ 
existent code name. Only this 
item and ones to the right must 
be retyped. 
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/ 


CODE NAME (XXXX) TOO 
LONG. RETYPE LINE 


CODE NAME (XXXX) TOO LONG 


TOO MANY CUPS 

REQUESTED CUP BEYOND 
LAST DATA 

XXXX CANNOT BE A MODIFIER 

XXXX CANNOT BE CHANGED 


NUMBER CANNOT REPLACE 
WHOLE CUP 


The user specified a code name 
of more than 4 characters. The 
first 4 are shown in the message. 
The entire line must be retyped. 

The user specified a code name of 
more than 4 characters. The first 
4 are shown in the message. Only 
this item and the ones to the 
right must be retyped. 

The user has specified a cup 
number greater than 2047. 

The cup specified by the user is 
not yet available. This message 
occurs when a specific request 
is too high and when the user 
has reached the end of the avail¬ 
able data. 

The indicated code name can be 
used as an English replacement 
only, not as a modifier. 

The user has attempted to enter 
a new result for XXXX which either 
has already been filed or is pre¬ 
marked as "do not file." This 
error occurs when trying to give 
an English result to a control. 

The user has typed a numeric 
replacement at the cup level for 
a cup with more than one result. 


MULTIPLE DEC. POINTS FOR Two decimal points were typed. 

XXXX 


RESULT FOR XXXX TOO BIG The numeric replacement given for 

result XXXX was greater than 2047000. 

RESULT FOR XXXX TOO SMALL The numeric replacement given for 

result XXXX was less than .0000001. 


ENTIRE CUP MAY NOT BE 
DELETED 


ACC. # TOO BIG 


TYPE ONLY # FOR ACCEPTING 
CONTROLS 


The user has typed the delete charac¬ 
ter (?) at the cup level for a cup 
with more than one result. If a cup 
is not desired, simply move to the 
next cup. 

The user has typed an accession number 
larger than 9999. 

The user typed more than just "#" to 
accept a control. This ofter happens 
when an accession number is typed by 
mistake. 
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NON-DIGIT IN ACC. # 

NO SUCH ACC. # 


PREVIOUS ACC. # GIVEN 


NO REQ. FOR: XXXX, 
XXXX, . . . 


PREV. DATA FOR: XXXX, 
XXXX, . . . 


The user typed a character other 
than 0-9 in the accession number. 

The accession number given by the 
user is not active at this time. 
That is, there are no incomplete 
results identified by the specific 
accession number. 

The user has already specified an 
accession number for this cup and 
verified the name. No other number 
may be given. 

The specified accession number did 
not include requests for the listed 
result types. 

The specified accession number 
included a request for the listed 
result types, but the data has 
already been entered into the 
patient file. 


System Errors: Non-Terminal 

WAITING FOR FILE XX The specified disk file is not 

immediately available, thus the 
program waits until it becomes 
available. An error in the system 
may be indicated if the program 
does not proceed beyond this point 
within a reasonable time. 


SKIPPING CUP XXXX: DISK The indicated cup number (XXXX) is 

ERROR FILE 33 being skipped because of a disk error. 


DISK ERROR FILE XX A disk read error occurred while 

reading file XX during a non-critical 
operation. This error may be non¬ 
terminal in the files shown below. 

The following values of XX have 
effects as follows: 


XX may mean error in: 

20 Patient Name printout 

22 Nursing Station printout 

36 Units Name printout 

40 Test Name printout 

41 English Result printout 

44 Test Code Name printout 
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NO FILE NAME FOR XXXX 


) 


The code* name XXXX is used i ri I ho 
on-line system as the* name of a 
result but the patient filing system 
has no such file name. Hence, results 
for XXXX are not filed in the 
patient file when an accession number 
is given. This message usually indicates 
a logical error in the formation of the 
Control Blocks or the Test Type Code 
Table. 


System Errors: Terminal 
SUMMARY TABLE FULL 


DISK ERROR FILE XX 


NO PROGRAM A1 AND/OR PF 


NO PROGRAM AX 


This message does not indicate a real 
error condition. However, the list 
of patients on whom all tests are 
complete has filled the available space. 
AC will quit as iF the user had typed 
STOP. After summaries are printed, 
the user may again call AC and continue. 

A disk error occurred while reading 
or writing file XX during a critical 
operation. This error may be terminal 
in the files shown below. The following 
are the possible files XX: 

XX Name 

20 Patient Name 

27 Requisition Index 

30 Patient Test Data 

32 Control/Schedule Blocks 

33 Channel Storage 

35 Test Type Codes 

36 Test Parameters 

42 Battery Table 

44 English Result Codes 

The program A1 and/or PF could not 
be loaded from the disk. AC will 
quit as if STOP had been typed. 

See Note 1. 

The program AX (where X is a digit 
2 to 5) could not be loaded from the 
disk. AC quits as though STOP had 
been typed. See Note 1. 


Note 1: A "NO PROGRAM" message may be caused by one of two 
conditions. 

a) The indicated program may not be in the program file. 

If so, software personnel should be notified. 

b) The indicated program may actually be in the program file, 
but it could not be read without error. If so, notify 
hardware maintenance personnel. 
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7.7 PROGRAM STRUCTURE 


Calling AC causes Banks 4 and 5 to be loaded. Bank 5 is transferred 
to Bank 7. 



wmrnrmrm 


AC 

MESSAGES 


PERMANENT 

TABLES 


'mmmimiL ill 


TEMPORARY 

BUFFER 

AREA 


AC 


LOAD RESTRUCTURE 

INITIAL CONVERSATION 


During the initial conversation quarters 2 and 3 of Bank 6 are laid out 
as permanent buffer and table space. A complete description of this area 
can be found in the attached diagram. 

At the end of the initial conversation two programs are loaded: Al, the 
resident edit control, into Bank 4 and PF, the data filer, into Q0 and 1 
of Bank 7. All further requests from the terminal are handled by Al and 
usually cause an overlay (A2-A5) into Bank 5. The special calculation 
routines are loaded into Q0 and 1 of Bank 6 if needed. 
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Bank 7 


6 


5 


4 


W////I/IIHTIII 

PF 


PERMANENT 

TABLES 

SPECIAL 

CALCULATIONS 


OVERLAYS 
A2 - A5 


Al 


EDIT PHASE 


All input in the edit phase (except verification of patient name) 
uses the input buffer in Bank 6. Al starts scanning the buffer 
to determine what the user requested- If an overlay is needed, 
it is loaded. After executing the overlay, Al continues to scan 
the buffer until the last item has been processed. Listed below 
are the functions of each section Al through A5. 

Al Read cup from channel storage, load overlays, 

decode input buffer, handle requests /, /XX, 
and STOP. 

A2 Print formatted report requested by R. If no 

accession # has been given the user is asked 
for nursing station and name. The user's 
reply is simply ignored, not read. 

A3 Modify or replace a cup or result. All inputs 

of the type AAAA or -AAAA cause this routine to 
be loaded. If the input is AAAA but not an 
English result, the move to result routine (A4) 
is loaded on the assumption that AAAA may be a 
result name. Any input of the type XXX.X or ? 
also cause A3 to be loaded. 

A4 Move to a result. Any input of AAAA which is 

not an English result causes A4 to be loaded. 
Also an input of just J (carriage return) causes 
A4 to be loaded. A4 sets up a line to type 
consisting of the test name, the result, any 
modification, etc. 

A5 File results and controls. Any input starting 

with # causes A5 to be loaded. 


J 
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7.8 


ASSEMBLY PROCEDURE 


Assemble AC, Al, A2 , A3 , A4 , and PF under DIAL and store on the start up 
tape in the following manner: 


Source Name 

Number of 

Assembled Blocks 

Name on 

Start up Tape 

Blocks to be 
Stored (1st block 
number of blocks) 

AC 

11 

AC 

1,7 

Al 

5 

Al 

1,4 

A2 

5 

A2 

1,4 

A3 

4 

A3 

1,3 

A4 

3 

A4 

1,2 

A5 

5 

A5 

1,4 

PF 

3 

PF 

CN 

i—1 


3 
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PERMANENT BUFFER $ TABLES FOR AC 
BANK 6 



A9 , CONTROL BLOCK TRAILERS 
RESULT #1 

RESULT #2 




C9 , RESULT TABLE 

.BIT 0=1 IF FIRST RESULT ON CHANNEL 
.BIT 1=1 IF THIS RESULT NOT REQUESTED 
•BIT 2=1 IF THIS RESULT IS A CONSISTENT 
DELETION 

.BIT 3=1 IF DELETE THIS RESULT THIS 
CHANNEL 



E9 , TTY INPUT BUFFER 

■UNPACK ROUTINE PUTS 8 BITS PER WORD, 
ADDS A CR. JUST IN CASE, SQUEEZES 
OUT 0,100.200.240 AND 300, DESTROYS 
STATUS WORD, LOOKS FOR STOf^. 
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LOCATION 


1447 


1527 


[char 

! CHAR 

1 

49 

1 CHAR 

2 

I I 

1 

1 

i 

1 

J 

! • 

!_ j 

1 72 

CHAR 

48 | 



RESULT=1 IN 5-WORD 
CHANNEL STORAGE 
FORMAT 


RESULT #15 


F9 , 


G9, 


TTY OUTPUT BUFFER 


CHANNEL STORAGE BUFFER A 


75 1q LOCATIONS 


1642 


RESULT #1 IN 5-WORD 
CHANNEL STORAGE 
FORMAT 


H9, CHANNEL STORAGE BUFFER B 


75 1(} LOCATIONS 


RESVfrT #15 


1755 


EOP-3 1 

FILE 33 

E 


9B 


DISK 

ADDRESS 


WORD 

COUNT-1 



J9, 


READ/WRITE CH. STATUS 


1762 


1776 



K9, 
L9, 
M9 , 
N9 , 
P9, 
Q9 t 
R9, 
U9, 


V9, 


TECH CODE 
NEXT CUP TO EDIT 
-IRESULTS/COLLATED SET 
-#CHANNELS/COLLATED SET 
PLATE SIZE 
HIGHEST CUP EDITED 
CURRENT RESULT W/IN CUP 
READ/WRITE 0-1. STORAGE 


PATIENT ORDINAL THIS CUP 


OR B 
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CHAPTER 8 


PATIENT DATA FILER 


The Patient Data Filer (DATA-PF) program is a pair of LINC subroutines 
to store results into the patient file. The subroutines are written 
to occupy Quarters 0-2 of Bank 7. The data to be filed may be any¬ 
where in banks 4-7. The subroutines are filed under PF in the program 
file. They are currently used by Accessions number entry and manual 
CAlculations. 

I/O Used: 

Disk - as follows 


File 20 Patient Names 

File 27 Requisition Index 

File 30 Patient Test Data 

File 36 Test Type Parameters 

File 42 Battery Table 


Read only 
Read/Write 
Read/Write 
Read only 
Read only 


8.1 RETRIEVE PATIENT GIVEN AN ACCESSION NUMBER 


The first subroutine determines, given an accession number, the 
patient ordinal and name. The calling sequence is shown below. 

LDA I 

LIF X [where X = current bank] 

LIF 7 
JMP 20 

ACCESSION NUMBER, HI (0-2 8 ) 

ACCESSION NUMBER, LO (0-7777 o ) 

o 

TECHNICIAN CODE (0-77 o ) 

O 

DISK ERROR RETURN 
ACC. # ERROR RETURN 
NORMAL RETURN 

If a disk error occurs, the subroutine returns at the indicated 
location. The accumulator contains the file number where the error 
occurred. The calling program prints an error message and exits. 
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If no requisition has been entered for the given accession number 
the ACC. # ERROR RETURN will be taken. 


If the requisition does exist, the NORMAL RETURN is executed. 
After a NORMAL RETURN the patient ordinal is found in the accumu¬ 
lator. The patient name (20^ characters in stripped ASCII) is 
stored starting at location 1000 in Bank 7, packed two to a word. 

8.2 FILE DATA FOR PREVIOUS GIVEN ACCESSION NUMBER 

To file data for a given accession number, use the following 
calling sequence. This call must be given after the call 
described in paragraph 8.1 and must originate in the same bank. 


The address of the data as given in the calling sequence refers 
to the upper 4K of memory (field 1). The address is independent 
of the LMB and UMB indicators. All data to be filed must be 
within a bank, i.e., it can not lap over bank boundaries. The 
data to be filed has a three word format: 


WORD N 
WORD N+l 
WORD N+2 


Result type (0-776 g ) 

Same as channel storage word 4 
Same as channel storage word 5 


The calling sequence is: 


OPEN WRITE FILE 27 
OPEN WRITE FILE 30 


LIF 7 
JMP 2 3 

ADDRESS OF FIRST DATA WORD (0-77 7 g ) 
NUMBER OF RESULTS TO FILE (l-525 g ) 
DISK ERROR RETURN 
NORMAL RETURN 


The subroutine closes both files 27 and 30 before either return 
is executed, thus the calling program must re-open the disk files 
for each filing operation. 

If any disk error occurs, the subroutine returns as indicated. The 
accumulator contains the file number where the error occurred. The 
calling program prints an error message and exits. 
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After a NORMAL RETURN, the accumulator must be inspected. If 
bit 0=1, then at least one result was not filed. If bit 1=1, 
then the summary printout table is full and "CL" must be loaded. 

After a NORMAL RETURN, only those sets of data where bit 0=1 
in word N have been filed. In those sets where bit 0=0, the 
calling program may inspect bit 1 of Word N to determine the 
cause of failure to file. Bit 1=0 means no result of this 
type was requested. Bit 1=1 means the result type was requested 
but the data had already been filed. 

Restrictions; The largest battery is assumed to be 32^ 0 results 
or less. Longer batteries cause serious malfunction. The 20^ Q 
character name read by the first subroutine is destroyed by 
the second. The summary printout table is big enough for only 
about 35 ^q patients. 

8.3 DESIGN CONSIDERATIONS 

The following assumptions have been made in the coding of these 
subroutines: 

End-of-file can occur only at specific places: 

1) as the 4th word of the first data block 

2) just after the outstanding test count 

3) just after a package header 

4) just after the last result in a battery or 

5) as the continuation pointer (last physical word 
in a block) 

If the 4th word of the first data block is not an end-of-file, 
then it is automatically assumed to be a day header. A 
requisition cannot request results for two or more days with 
a single accession number. This is not to say that an 
accession number cannot be reused, but that a given active 
accession number can have results for one day only. If all 
results for the given accession number are filled, then the 
appropriate word in the requisition index is reset to 7777. 

Disk writes are not checked. 

8.4 ASSEMBLY INSTRUCTIONS 

Set the conditional assembly parameter in PF to tne size of core for 
the system being assembled. Patient Data Filer is assembled from a 
DIAL source named PF and blocks 1,2 of the binary are stored on tne 
start up tape under the name PF. 
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DATA - PF 


) 



FLOW - 2 
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DATA - PF 


SAVE THE 
TEST COUNT 
AND ITS 
POINTERS 


READ 
A WORD 


EOF ? 


/ DAY 
HEADER 


yTAS\ 
fEST COUb 
sCHANGEDv 


HAS \ 

rEST covm 

'changed/' 


REWRITE 
PHE OUT¬ 
STANDING 
fEST COUNT 


REWRITE 
CURRENT 
BLOCK IF 
NEEDED 


/TEST 
COUNT 
V 0 . 


ENTER BLOCK 
NUMBER IN 
SUMMARY 
TABLE 


RETURN 

(*+l) 


CLOSE FILE 
.AND LOAD 
* FLAGS 


RESET REQ. 
INDEX = 7777 
IF ACC # NOW 
IS FULL 









DATA - PF 



NOTE Is AT THIS POINT WE MUST HAVE, BY 
ELIMINATION, THE FIRST WORD OF 
A BATTERY. 

FLOW - 4 
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HOW TO OBTAIN SOFTWARE INFORMATION 


Announcements for new and revised software, as well as programming notes, software problems, 
and documentation corrections are published by Software Information Service in the following 
newsletters* 


Digital Software News for the PDP-8 and PDP-12 
Digital Software News for the PDP-11 
Digital Software News for 18-bit Computers 

These newsletters contain information applicable to software available from Digital's Software 
Distribution Center. Articles in Digital Software News update the cumulative Software Per¬ 
formance Summary which is contained in each basic kit of system software for new computers. To 
assure that the monthly Digital Software News is sent to the appropriate software contract at your 
installation, please check with the Software Specialist or Sales Engineer at your nearest Digital 
office. 

Questions or problems concerning Digital's software should be reported to the Software Specialist. 
In cases where no Software Specialist is available, please send a Software Performance Report 
form with details of the problems to: 

Digital Equipment Corporation 
Software Information Service 
Programming Department 
Maynard, Massachusetts 01754 

These forms, which are provided in the software kit, should be fully filled out and accompanied 
by Teletype output as well as listings or tapes of the user program to facilitate a complete inves¬ 
tigation. An answer will be sent to the individual and appropriate topics of general in¬ 
terest will be printed in the newsletter. 

Orders for new and revised software manuals, additional Software Performance Report forms, and 
software price lists should be directed to the nearest Digital Field office or representative. USA 
customers may order directly from the Software Distribution Center in Maynard. When ordering, 
include the code number and a brief description of the software requested. 

Digital Equipment Computer Users Society (DECUS) maintains a user library and publishes a cata¬ 
log of programs as well as the DECUSCOPE magazine for its members and non-members who request 
it. For further information, please write to: 

Digital Equipment Corporation 
DECUS 

Programming Department 
Maynard, Massachusetts 01754 
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READER’S COMMENTS 


Digital Equipment Corporation maintains a continuous effort to improve the quality, and usefulness 
of its publications. To do this effectively we need user feedback -- your critical evaluation of 
this manual. 

Please comment on this manual's completeness, accuracy, organization, usability, and read¬ 
ability. 


Did you find errors in this manual? If so, specify by page. 


How can this manual be improved? 


Other comments? 


Please state your position. 
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